my @sorted = sort { substr($a,2) <=> substr($b,2) } @array;