use strict;
use warnings;
my $foo;
my $bar = 0;
my $baz = '0';
for my $arg ( $baz, $bar, $foo ){
    use Data::Dump;
    dd( $arg );
    print qq{ the $arg\n };
}
__END__
0
 the 0
 0
 the 0
 undef
Use of uninitialized value $arg in concatenation (.) or string at - line 9.
 the