for my $key ( keys %hash ) {...}
while( my $line = <FILE> ) {...}