Select Code to Download

-1 -> <1K
0 -> 
...
10000000000000 -> 9313G
100000000000000 -> 93132G
1000000000000000 -> 931323G

for my $amount( qw/-1 0 1 10 100 511 512 513 999 1000 1023 1024 1025
    10000    
...
{
    print "$amount -> ", amount($amount), "\n";
}

sub amount {
    my $num = shift;
...
    }
    return "$num$suffix[$offset]";
}