#!/usr/local/bin perl5.14.2                                                     
use warnings;
use strict;
use File::Basename;

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

foreach my $arch (@ARGV ){
    my ($name,$path,$suffix) = fileparse($arch,@extens);
    $ppal[$i] =	[];
    push @{$ppal[$i]},($path,$name,$suffix);
    $i++;
}

foreach	my $elem (@ppal){

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

}