Untitled

what does this Perl foreach do?
-e && print ("$_n") foreach $base_name, "build/$base_name";

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

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

foreach( $base_name, "build/$base_name" ){
  if( -e ){
    print ("$_n");
  }
}

say grep -e, $base_name, "build/$base_name";

print map "$_n", grep -e, $base_name, "build/$base_name";

-e && print("$_n")
    foreach( $base_name, "build/$base_name" );

sub print_existing_files { -e && print ("$_n") foreach @_; }