Select Code to Download

#! /bin/perl

...
        my $code = '$hash->' . join('->', map { "{$_}" } @keys);
        return eval $code;
        }

==> Fetching [wheels]
$VAR1 = {
...

==> Fetching [wheels, four, truck, utility, blah]
$VAR1 = undef;