83 push @data, $line;
     84 
     85 my @sorted =
     86     map  { $_->[0] }
     87     sort { $a->[1] cmp $b->[1] }
     88     map  [ $_, (split)[1] ], @data;  # Sort by Login
     89 
     90 print $SORT "$server\t$date\t$_\n" for @sorted;
     91 }    ##  END of while loop