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

##</code><code>##

my @sorted=sort keys %hash;