map { push(@pieces,$_) } split(/\./,$file);