use File::Basename;
for (@files) {
    print dirname($_), "\n";
}