Select Code to Download

open HANDLE, 'testhash.txt' or die "Can't open: $!";
my %hash;
for my $data (<HANDLE>) {
...
}
close HANDLE;
# do stuff with entire hash here

open HANDLE, 'testhash.txt' or die "Can't open: $!";
for my $data (<HANDLE>) {
   chomp $data;
...
   # do interesting things with one-line %hash here
}
close HANDLE;