open (IN, "<grep");
my %lines;
while (<IN>){
  $lines{$_} = 1;
}
close IN;

open (OUT, ">gout");
# assumes input data comes from stdin
while (<>){
  print OUT $_ if exists $lines{$.};
}
close OUT;