print q[@directories has $path] if grep $_ eq $path, @directories;

##</code><code>##

foreach (grep $_ eq $path, @directories) {
    # your code here
}