How do I create a new array in memory?

[Buckaroo Buddha]

Hi there,
I'm trying to figure out how to make sure each array claims its own memoryspace.

How do I do that?

    while <> {
         @record = split(',',$_);
         $key = shift(@record);
         $list{$key} = \@record;
    }

Originally posted as a Categorized Question.

[btrott]

You need to declare the variable lexically with my:

    while (<>) {
        my @record = split /,/;
        my $key = shift @record;
        $list{$key} = \@record;
    }

You can test this by printing out the array references; they should all have different addresses:

    print join "\n", values(%list), '';

[davorg]

The other way to do it is to take a copy of the array each time by using the anonymous array constructor.

while (<>) {
  my @record = split /,/;
  my $key = shift @record;
  $list{$key} = [@record];
}