Select Code to Download

use warnings;
use strict;
...
    print "Path:\t@{$elem}[0]\tArchivo:\t@{$elem}[1]\tExtens:\t@{$elem
+}[2]\n";

}

use warnings;
use strict;
...
    #or: print "Path:\t$elem->[0]\tArchivo:\t$elem->[1]\tExtens:\t$ele
+m->[2]\n";
    #or: printf "Path:\t%s\tArchivo:\t%s\tExtens:\t%s\n", @$elem;
}

my @ppal;
foreach my $arch (@ARGV) {
    push @ppal, [ fileparse($arch, @extens) ];
}

my @ppal = map { [ fileparse($_, @extens) ] } @ARGV;