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);

@array = map { $_->[0] } 
    sort { $a->[1] <=> $b->[1] or $a->[2] <=> $b->[2] } 
    map { /Patch_(\d+)\.(\d+)/; [$_, $1, $2] } @array;

say for @array;

##</code><code>##

$ perl sort_versions.pl
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