The goal of it is actually be able to load it from an outside source. Kind of like...

@test eq ('billy', 'colorado', '21');

my ($name, $state, $age) = (@test);
print "$name\n$state\n$age\n";
[download]

I am trying this because I couldn't figure out how to use the require() command. If you think that would work better an example of that would be good.