Zdravim, zajimalo by me, kam se podela hodnota $_ $_ = 'pepa'; @pole = qw( jeden dva tri ); while ( $_ = shift @pole ) { print "$_\n" } print "$_\n"; Posledni `print' vytiskne pouze "\n" - neobjevi se ani warning, ze by $_ byl undef... -- JP