Select Code to Download

my ( $foo, $bar, $foo2 ) = qw/foo bar foo2/;
my $array_of_key_value_pairs =
...
    item1 => $foo2,
];
print Dumper $array_of_key_value_pairs;

$VAR1 = [
          'item1',
...
          'item1',
          'foo2'
        ];