perl -e "print q/2e+11/, $/; print 2e+11, $/;" #### perl -e "print q/2e+11/ + 0, $/;" #### my @numbers; while( my $num = ) { chomp $num; push @numbers, $num + 0; } print "$_\n" for sort { $a <=> $b } @numbers; __DATA__ 1e-13 2e-18 1e-11