#!/usr/bin/perl

my @nums = (2.3e+4, 4e9, 7e-9, 4e-3, 4e-14, 4.4e-14, 4e-13);

foreach (sort {$a <=> $b} @nums)
{
        print "$_\n";
}