Select Code to Download

#! /bin/perl

...
        print "==> Fetching [" . join(', ', @keys) . ']' . "\n";
        print Dumper $hash->{shift @keys}{shift @keys};
        }

==> Fetching [wheels]
$VAR1 = undef;
...
                                    }
                     }
        };

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

==> Fetching [wheels, four, truck, utility, corp, dom]
$VAR1 = 'dominion power';