for $index (sort{$a<=>$b}(keys (%records))){
        print $OUTFILE "$index: ",join(",",(sort{$a<=>$b}(@{$records{$index}}))),"\n";
}