$ perl -le '
> @arr = qw{ TEXT1 TEXT3 TEXT11 TEXT2 TEXT13 };
> print for
>    map  { substr $_, 9 }
>    sort
>    map  { sprintf q{%09d%s}, ( split m{(?<=[A-Z])(?=\d)} )[ 1 ], $_ }
> @arr;'
TEXT1
TEXT2
TEXT3
TEXT11
TEXT13
$