note
extremely
Try this one:
<code>
#!/usr/bin/perl -w
use strict;
my @k = (1..9);
my $m;
{ local $k[5]="middle";
$m = \@k;
print "@k\n";
my $m = [ 'a'..'z' ];
print "@$m\n";
}
print "@$m\n";
## Returns:
#1 2 3 4 5 middle 7 8 9
#a b c d e f g h i j k l m n o p q r s t u v w x y z
#1 2 3 4 5 6 7 8 9
</code>
<p>Pretty ugly, huh?
<p><i>-- <br>
$you = new YOU;<br>
honk() if $you->love(perl)</i>
236433
236433