#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper 'Dumper';

my @files = qw(firstcase_1 firstcase_2 firstcase_10 secondcase_4 secondcase_1 secondcase_11);

my @sorted = sort { $a =~ /^(\w+)_(\d+)$/; my ($a1,$a2) = ($1,$2);
                    $b =~ /^(\w+)_(\d+)$/; my ($b1,$b2) = ($1,$2);
                    $a1 cmp $b1 || $a2 <=> $b2 }
             @files;

print Dumper(\@sorted);