chomp ( my @data = <DATA> );
my @sorted =
    map  { $_->[0] }
    sort { $a->[1] <=> $b->[1] }
    map  [ $_, (split)[3] ], @data;

print "$_\n" for @sorted;

__DATA__
0    TOTAL    11997    26981
0    root    1089    2594
1    daemon    0    0
594    pipmp01    591    1151
958    maestro    335    685