#! /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);