open A, "a" or die;
my %in_a = map { $_, 1 } <A>;
open B, "b" or die;
while (<B>) {
  print if $in_a{$_};
}