DB<123>  $str =join '', a..h
 => "abcdefgh"
 
  DB<124> ( undef, undef, undef, undef , @rest) = split //, $str
 => ("a", "b", "c", "d", "e", "f", "g", "h")
 
  DB<125> @rest
 => ("e", "f", "g", "h")

##</code><code>##

  DB<126> $index=4
 => 4
 
  DB<127> ( @ignore[1..$index] , @rest) = split //, $str
 => ("a", "b", "c", "d", "e", "f", "g", "h")
 
  DB<128> @rest
 => ("e", "f", "g", "h")

##</code><code>##

  DB<129> ( ( (undef) x $index ) , @rest) = split //, $str
Can't modify repeat (x) in list assignment at (eval 65)[multi_perl5db.pl:638] line 2, at EOF