$hash{'one'} = [ '1', 'two', 'three'];
$hash{'two'} = [ '2', 'three', 'four'];
$hash{'three'} = [ '3', 'four', 'five'];

##</code><code>##

$hash{'1'} = [ 'one', 'two', 'three'];
$hash{'2'} = [ 'two', 'three', 'four'];
$hash{'3'} = [ 'three', 'four', 'five'];

##</code><code>##

#!/usr/bin/perl -w

use strict;
use Data::Dumper;

my %hash;

$hash{'one'} = [ '1', 'two', 'three'];
$hash{'two'} = [ '2', 'three', 'four'];
$hash{'three'} = [ '3', 'four', 'five'];

#  Here is where I can't get 'map' quite right
my %new_hash = map { $_->[0] => [ getkey($_), $_->[1], $_->[2] ] };

print Dumper \%new_hash;