($file,$path) = fileparse $fullname;
push(@files, [$path,$file]);