Select Code to Download

use Data::Dumper;
my @array = somecode();
print Dumper \@array;

 for my $element (@f)
{
   my $key = $element->[0];
   ...
}