[tpm] Weird arrary reference bahaviour

[Indy Singh]

Hi Guys,
Can anyone explain, why taking a reference to an array gives a different 
value on each iteration of this loop.  This is the line of code:
  my $r = \@f;

If I move the "my @a" declaration outside the loop I get the same value 
each time.

It seems that on each iteration of the loop a new @f array is created. 
Does that make sense?

Indy Singh
IndigoSTAR Software -- www.indigostar.com


my @foo = ("ford:ltd", "chevy:nova");
my $x;
my @a;

foreach $x (@foo) {
  my @f;
  @f = split(/:/, $x);
  my $r = \@f;
  print "r = $r\n";
  push @a, $r;
}

my $item;
foreach $item (@a) {
  print join(' ', @{$item}),"\n";
}