my @lines = ('124.43.adsf.ca', '235.23.aer.ca', '100.34.asdm.ca'); # create the unsorted array
my @sorted = sort @lines; # create the sorted array
for (@sorted) { print "$_\n"; } # display