Select Code to Download

     key1,value1
     key2,value2
     key3,value3
     key4,value4

open HANDLE, 'testhash.txt' or die "Can't open: $!";
my $data = <HANDLE>;
close HANDLE;
...
foreach my $key (keys %hash) {
   print "$key $hash{$key}\n";
}