@records = (".66+5638+copper globe",
            "1.00+1396+the blocks",
            ".33+4055+hunt draw");

##</code><code>##

@records = ("0.66+5638+copper globe",
            "1.00+1396+the blocks",
            "0.33+4055+hunt draw");

##</code><code>##

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