open (FH,"filename here") or die;

while ( my $line = <FH> ) {
   if ( $youhash->{$line} ) { 
   #he, a match! 
   }
}