#!/usr/bin/perl -l

# http://perlmonks.org/?node_id=1207205

use strict;
use warnings;

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

print for sort { $a =~ tr/0-9.//cdr <=> $b =~ tr/0-9.//cdr } @array;