s/^\./0./ for @records;
@records= sort {$b cmp $a} @records;