my %hash;

++$hash{ $_ } while <>;

##</code><code>##

$hash{ $_ } == @ARGV and print for keys %hash;