@files = ("one.zip","twotwo.doc","three3.ppt");
map {$_ =~ /(.*)\./; push (@onlyNames, $1); push (@onlyExt, $');} @files;