Select Code to Download

my @array = ( { one => 'USA', ... }, {...}, ... );

my @array = ( [ 'USA', 'GOD', '690557', 'hello how are u' ],  [ ... ],
+ ... );

foreach my $aref (@array) {
   # If you really need them...
   my ($one, $two, $three, $four) = @$aref;
   # Etc. etc.
}