Select Code to Download

$hash = {
    'key' => ['one', 'two', 'three']
}

while ( my ($key,$string) = each %oldhash ) {
...
print $newhash{$key}->[0], "\n"; 
# print out all of the elements for a given key
print "$key: ", join @{$newhash{$key}}, '-', "\n";