Select Code to Download

 
my $ref;
{
   my @array = 'element';
   $ref = \@array;
}

{
my @array = 'element';
}
$ref = \@array;
print "$ref\n";

$ref=\@arr; #### @arr doesn't excist at all
print "$ref\n";