Select Code to Download

my %whatever = (
    'a' => [1,2,3,4],
    'b' => [5,6,7,8],
);

    my $extract = $whatever{'a'}[0]; #should = 1

my $extract = $::whatever{'a'}[0]; #should = 1

my $extract = $main::whatever{'a'}[0]; #should = 1