use DB_File;
my $hash;
tie %hash, DB_File, "first_file.hash";
while (<FIRST_FILE>)
{
  $hash{$_} = undef;
}

while (<SECOND_FILE>)
{
  print $_ if exists $hash{$_};
}