@array = map { $_->[0] } sort { $a->[1] <=> $b->[1] } 
map { my @q = split(/\s+/,$_); [ $_, $q[-1] * $q[-2] ] } @array;
[download]