use strict;
use warnings;

sub foo {
 if (1) {
  return do {
   1;
  }
 }
}
sub bar {
 if (1) {
  return do {
   my $x;
   1;
  }
 }
}
sub baz {
 if (1) {
  return scalar do {
   my $x;
   1;
  }
 }
}

my $x = foo;
my $y = bar;
my $z = baz;

print "#$x#\n";
print "#$y#\n";
print "#$z#\n";