my @data = <DATA>;
my @alpha_sort   = sort { $a cmp $b } @data;
my @numeric_sort = sort { $a <=> $b } @data;

print "Alpha sort\n@alpha_sort\n";
print "Numeric sort\n@numeric_sort\n";

__DATA__
123.45Hello
32.2World
1.5Just
288.2Another
288.3Perl
288.4Hacker