my $index = sprintf("%i.%6.6i", split (/\t/, $key));