My first time using a Schwartzian-transform

output

$ ./Schwartzian.pl
$VAR1 = [
          '/data/switch/cdr/SWITCH_20130627_151800',
          '/data/switch/cdr/SWITCH_20130627_151500',
          '/data/switch/cdr/SWITCH_20130627_151900',
          '/data/switch/cdr/SWITCH_20130627_151700',
          '/data/switch/cdr/SWITCH_20130627_151600',
          '/data/switch/otherCDR/SWITCH_20130627_151900',
          '/data/switch/otherCDR/SWITCH_20130627_151600',
          '/data/switch/otherCDR/SWITCH_20130627_151800',
          '/data/switch/otherCDR/SWITCH_20130627_151500',
          '/data/switch/otherCDR/SWITCH_20130627_151700'
        ];
$VAR1 = [
          '/data/switch/cdr/SWITCH_20130627_151500',
          '/data/switch/otherCDR/SWITCH_20130627_151500',
          '/data/switch/cdr/SWITCH_20130627_151600',
          '/data/switch/otherCDR/SWITCH_20130627_151600',
          '/data/switch/cdr/SWITCH_20130627_151700',
          '/data/switch/otherCDR/SWITCH_20130627_151700',
          '/data/switch/cdr/SWITCH_20130627_151800',
          '/data/switch/otherCDR/SWITCH_20130627_151800',
          '/data/switch/cdr/SWITCH_20130627_151900',
          '/data/switch/otherCDR/SWITCH_20130627_151900'
        ];

Schwartzian.pl

#!/opt/perlbrew/perls/cdrtools/bin/perl

use Modern::Perl;
use Data::Dumper;

my @files = qw(
               /data/switch/cdr/SWITCH_20130627_151800
               /data/switch/cdr/SWITCH_20130627_151500
               /data/switch/cdr/SWITCH_20130627_151900
               /data/switch/cdr/SWITCH_20130627_151700
               /data/switch/cdr/SWITCH_20130627_151600
               /data/switch/otherCDR/SWITCH_20130627_151900
               /data/switch/otherCDR/SWITCH_20130627_151600
               /data/switch/otherCDR/SWITCH_20130627_151800
               /data/switch/otherCDR/SWITCH_20130627_151500
               /data/switch/otherCDR/SWITCH_20130627_151700
              );
print Dumper \@files;

my @sorted = map  { $_->[0] }
             sort { $a->[1] <=> $b->[1] }
             map  { [$_, $_=~ /SWITCH_(?:\d{8})_(\d{6})/] }
                 @files;
print Dumper \@sorted;