sub process { my %run_all = %{ shift(@_) }; foreach my $key ( keys %run_all ) { print "$key\n", map { join( "\t" => @$_{ (qw[name reference]) } ), $/ } @{ $run_all{$key} } } }