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


##</code><code>##

open HANDLE, 'testhash.txt' or die "Can't open: $!";
my $data = <HANDLE>;
close HANDLE;
chomp $data;
my %hash = $data =~ /'([^,]+),([^']+)',
                     '([^,]+),([^']+)',
                     '([^,]+),([^']+)',
                     '([^,]+),([^']+)'/x;

# demo use of the hash to access results
foreach my $key (keys %hash) {
   print "$key $hash{$key}\n";
}