I'm trying to figure out how to apply 'map' to this problem.

I want to take my %hash and create a new %new_hash out of it.
I need to swap the key with the first array element that the has points to.

In so I want to %hash to go from:

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

to the new %new_hash:

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

Here is my example script;

#!/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;
[download]