#!/usr/bin/env perl # use strict; my %h; open(FH, "subunit-ls --times --no-passthrough|") || die "pb with subunit-ls"; while(<FH>) { chomp(); my @l = split(/ /); my $val = @l[scalar(@l)-1]; $h{join(' ',@l)} = $val; } my @sorted = sort { $h{$b}<=>$h{$a} } keys(%h); use Data::Dumper; foreach my $l (@sorted) { print "$l\n"; }