in reply to Get values from array
Or you could use a for loop with a map instead of nested for loops:
sub process { my %run_all = %{ shift(@_) }; foreach my $key ( keys %run_all ) { print "$key\n", map { join( "\t" => @$_{ (qw[name reference]) } ), $/ } @{ $run_all{$key} } } }
|
---|
In Section
Seekers of Perl Wisdom