[Moscow.pm] Убейте меня пока я не сошел с ума.

[Kaltashkin Eugene]

А откуда берутся такие чудеса ?
Почему при изменении переменной в которую передано значение ячейки 
массива, меняется сам массив ?
Я тупочка ? У меня вроде не указатель передаётся.

#!/usr/bin/perl
use strict;
my @lst = 
("thumb/1.jpg","thumb/2.jpg","thumb/3.jpg","thumb/4.jpg","thumb/5.jpg");
foreach my $file (@lst)
{
$file =~ s/thumb\///g;
print join ("::", на lst),"\n";
}

result:
1.jpg::thumb/2.jpg::thumb/3.jpg::thumb/4.jpg::thumb/5.jpg
1.jpg::2.jpg::thumb/3.jpg::thumb/4.jpg::thumb/5.jpg
1.jpg::2.jpg::3.jpg::thumb/4.jpg::thumb/5.jpg
1.jpg::2.jpg::3.jpg::4.jpg::thumb/5.jpg
1.jpg::2.jpg::3.jpg::4.jpg::5.jpg

web:/www/memory> perl -v
This is perl, v5.8.8 built for i386-freebsd-64int