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