#!/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
[download]

Pretty ugly, huh?

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