Select Code to Download

#! /bin/perl

use Data::Dumper;
...
        my $command_string = 'print Dumper $hash->' . '{shift @keys}' 
+x scalar @keys;
        eval "$command_string";
        }

$ perl  deep.pl
==> Fetching [wheels]
$VAR1 = {
...
==> Fetching [wheels, four, truck, utility, corp, dom]
$VAR1 = 'dominion power';