my $padded=sprintf("%08.3f",39.452);

##</code><code>##

while (<>){
  split /:/;
  $_[0]=sprintf("%08.3f", $_[0]);
  push @data, join ":", @_;
}

##</code><code>##

    sort{ $a <=> $b} @numbers;

##</code><code>##

sort{extract( $a ) <=> extract( $b )} @lines;

sub extract{
  $a = shift;
  split /:/, $a;
  $_[0];
}

##</code><code>##

my %hash;
while(<>){
  my ($key, $data) = split( /:/, $_, 2 );
  $hash{ $key } = $data;
}
print "Sorted!:\n\n", join "|", sort {$a <=> $b} keys %hash;

##</code><code>##

$key .= ':001' if defined $hash{$key};
$key++ while defined $hash{$key};