use strict;
use warnings;
use 5.012;

if (my $x = glob "dir1/f*") {
    say $x;
}

if (my $x = glob "dir1/f*") {
    say $x;
}

if (my $x = glob "dir1/f*") {
    say $x;
}

if (my $x = glob "dir1/f*") {
    say $x;
}
if (my $x = glob"dir1/f*") {
    say $x;
}

--output:--
dir1/f1
dir1/f1
dir1/f1
dir1/f1
dir1/f1