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