print "Original values of thishash:\n";
while (($key, $value) = each(%thishash)){            
print $key.", ".$value."\n";
}