merlyn has, as usual, sussed it. Here's how you create a global/package variable and avoid running afoul of strict.

If you also use vars qw(%whatever) you can have a nice, global, package variable. Set %whatever to some value without using my. Then you should be able to access your variable with my $extract = $main::whatever{'a'}[0];

Good luck!