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