use Socket qw [inet_aton]; sub squish { my($ip_lo,$ip_hi,$name) = split (//,$_[0]); return $name.inet_aton($ip_lo).inet_aton($ip_hi); } @sorted = sort { squish($a) cmp squish($b) } @unsorted;