my @sorted_keys = 
   map { s/_0*//; $_ }
   sort
   map { s/(\d+)/sprintf("_%08d",$1)/e; $_ } keys %hash