use v5.16;

my $input = <>;
# my $input = "1 2 4 5 6 7 8 9 10";
chomp $input;

# 比較用のハッシュを作成する
# keyは数字、valueは0
# (1 => 0, 2 => 0, 3 => 0, ...)
my %h = map { $_ => 0 } ( 1 .. 10 );

# 入力された数字を分割、ハッシュのkeyに
# 該当するものはvalueをインクリメントする
for my $n ( split / /, $input ) {
    $h{$n}++;
}

# ハッシュのvalueが0のものが抜け落ちた数字
say grep { $h{$_} == 0 } keys %h;