Select Code to Download

@foo = qw[1 2 3 4 5];

should transform into a hash that looks like this

$bar->{1}{2}{3}{4}{5} = undef;

use Data::Dumper;
use strict;
...

eval($string);
print Dumper($hashref);