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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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