what does this Perl foreach do?

Question

I am stuck while understanding what this foreach does, I am new to perl programming

-e && print ("$_\n") foreach $base_name, "build/$base_name";

here build is directory. Thanks

Answer 1

Not very pretty code somebody left you with there. :(

Either of

for ($basename, "build/$basename") { say if -e }

or

for my $file ($basename, "build/$basename") {
     say $file if -e $file;
}

would be clearer.