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

##</code><code>##

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

##</code><code>##

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