Select Code to Download

use strict;
use Data::Dumper;
my %x = map { $_ => [$_, sub {shift;}]} qw(a b c);
print Dumper(\%x);

$VAR1 = {
          'a' => [
...
                   $VAR1->{'a'}[1]
                 ]
        };