Несколько моментов * баг или я что-то не так делаю? * где-нибудь может выстрелить? К примеру в XS модулях. * Почему так? use Data::Dumper; my @array = ( 0 .. 3 ); for ( my $index = $#array ; $index >= 0 ; $index-- ) { print Dumper($index); }