$ perl -e 'use strict;
> use warnings;
> use feature "say";
>
> my @array = qw(Patch_11.4 Patch_1.0 Patch_2.0 Patch_3.1 Patch_5.0 Patch_4.2 Patch_6.0
>                Patch_11.0 Patch_7.0 Patch_8.0 Patch_9.3 Patch_10.2 Patch_11.2);
> my @array2 = sort  { substr($a, 6) <=> substr($b, 6)} @array;
> say for @array2;
> '
Patch_1.0
Patch_2.0
Patch_3.1
Patch_4.2
Patch_5.0
Patch_6.0
Patch_7.0
Patch_8.0
Patch_9.3
Patch_10.2
Patch_11.0
Patch_11.2
Patch_11.4