http://www.perlmonks.org?node_id=1003587


in reply to Re^4: Sorting one column of results
in thread Sorting one column of results

for my $line (sort { $a->[10] cmp $b->[10] } @out) {
    printf $OUT "%s\n%s\n" .
        "Quantity:%s\n\n%s\n%s\n%s\n%s\n%s\n%s\n%s\n%s\n\n\n",
        @$line[10..12],
        @$line[16..23];
}

[download]

In Section Seekers of Perl Wisdom