my @sorted= map {
        $_->[1]
} sort {
        $a->[0] <=> $b->[0]
} map {
        [substr ($_, 5, 10), $_]
} @array;

my @sorted = sort { substr ($a, 5, 10) <=> substr ($b, 5, 10) } @array;

java.util.Arrays.sort(array, new java.util.Comparator() {
      public int compare (Object o1, Object o2)
      {
         return ((String) o1).substring(5, 15).compareTo(((String) o2).substring(5, 15));
      }
});

my @sorted= map {
        $_->[1]
} sort {
        $a->[0] <=> $b->[0]
} map {
        [substr ($_, 5, 10), $_]
} @array;

#! /usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my @array = qw(1307-1108442414.jpg
1041-1108442405.jpg
1070-1108442406.jpg
1303-1108442413.jpg
1151-1108442407.jpg
1189-1108442408.jpg
1278-1108442412.jpg
1238-1108442409.jpg
1259-1108442410.jpg
1267-1108442411.jpg);

my @map_eins = map{[substr($_,5,10),$_]}@array;
print Dumper(\@map_eins);

my @sort = sort{$a->[0] <=> $b->[0]}@map_eins;
print Dumper(\@sort);

my @map_zwei = map{$_->[1]}@sort;
print Dumper(\@map_zwei);