my $spalte = 2;

my @sproc = map  { $_->[0] }
             sort { $a->[1] <=> $b->[1] }
             map  { [ $_, (split /\s+/)[$spalte] ] } qx{ps -aux};

print for @sproc;