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