Select Code to Download

#!/usr/bin/perl
use strict;
...
say for sort {
    ($a =~ /([0-9]+)/)[0] <=> ($b =~ /([0-9]+)/)[0]
} @unsorted_array;