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