http://qs321.pair.com?node_id=236556


in reply to local element of my() array????

Try this one:
#!/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

Pretty ugly, huh?

--
$you = new YOU;
honk() if $you->love(perl)