The output from Dumper is funny, but the coderefs work for this:

#!/usr/local/bin/perl -l -w

use Data::Dumper;
my @arr = map {my $var=$_; [$_, sub {$var}]} qw(a b c);
print Dumper(\@arr);
print &{$arr[0][1]};
print &{$arr[1][1]};
[download]

Oh, I notice you wanted a hash, well I'm sure you can figure it out :)
And this is probably not what you want anyway... I think I'll refrain from posting the rest of today :(