Select Code to Download

s!(\d+)/(\d+)/(\d+)!sprintf"%04d-%02d-%02d",$3,$2,$1!e;

my @sorted=sort keys %hash;