use warnings;
use strict;
use File::Basename;

my @extens = qw(.zip .dmg .tar.gz .pl .pl~ .cgi .mp3 .txt);

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

foreach my $elem (@ppal) {
    print "Path:\t${$elem}[0]\tArchivo:\t${$elem}[1]\tExtens:\t${$elem}[2]\n";
    #or: print "Path:\t$elem->[0]\tArchivo:\t$elem->[1]\tExtens:\t$elem->[2]\n";
    #or: printf "Path:\t%s\tArchivo:\t%s\tExtens:\t%s\n", @$elem;
}