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