my %h = map /(.*)\.(.*)/, @files;
@onlyNames = keys %h;
@onlyExt = @h{@onlyNames};