## some.host.name [ip: 111.222.333.444] is alive  70.05 ms)
## Updated: switched 'N' for 'd'; real data.
my @sorted = map {
   unpack 'x[d] A*', $_
} sort map {
   my( $time ) = m[([\d.]+) ms)$];
   pack 'd A*', $time, $_;
} @data;

##</code><code>##

my( $time, $units ) = m[([\d.]+) (ms|us|secs)];
my $scaler = $units eq 'us' ? 0.1 : $units eq 'secs' ? 1000 : 1;
$time *= $scaler;