foreach my $ref (keys %fred) ( $fred{$ref}->[2] = ++$i; ) [download]
In reply to Re^3: Allocation of anonymous arrays by OwlHoot in thread Allocation of anonymous arrays by OwlHoot