my ($x,$y);

$y=5;
$x=&blubb;

sub blubb{
  my $z;

  $z=3;
  $z += $y;
  $z;
}

# und

my $y=5;
my $x=&blubb;

sub blubb{
  my $z=3;
  $z += $y;
  $z;
}