use strict;
use Data::Dumper;

my @data = qw( 124.43.adsf.ca 235.23.aer.ca 100.34.asdm.ca );

my @sorted = map { $_->[ 0 ] }
             sort { $a->[1] cmp $b->[1] }
             map { [$_, /(\d+\.\d)/] }
             @data;