#!/usr/bin/perl
use v5.12;
use warnings;
use File::Copy qw(copy);

my $src = '/media/sdcard/bilder'; #quellordner
my $dst = '/home/stefan/meine_bilder'; #zielordner

#um aus ordner statt array die files zu lesen
#opendir (img, $src) || die $!;
#my @files = readdir(img);
#close img;

my @files = qw(1.gif 2.gif 2a.gif 3.gif 4.gif 4a.gif 4b.gif 5.gif);

my $i = 1;
for my $file (sort @files) {
        say "$src/$file\t-> $dst/$i.gif";
#       copy "$src/$file", "$dst/$i.gif";
        $i++;
}