opendir my $dir => $directoryOfImage or die;
my @allPictures = map  {substr $_ => 10}
                  sort
                  map  {sprint "%010d%s" => (stat) [9], $_}
                  grep {$_ ne "." && $_ ne ".."}
                  readdir $dir;
closedir $dir;