in reply to extracting a list from a lists of lists
my $ref = $LoL[$n]; my @ary = @{$LoL[$n]}; $ref->[0] = "Foo"; # Modifies @LoL directly $ary[0] = "Foo"; # Only modifies @ary copy foreach (@$ref) { ... } foreach (@ary) { ... } [download]