foreach my $line(keys %hash) { print $line }