my @sorted= Filter {
       s#\d{2}(\d+)#\1#g
   } sort Filter {
       s#(\d+)# sprintf "%02d%s", length($1), $1 #g
   } @data;