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

##</code><code>##

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