Select Code to Download

  DB<123>  $str =join '', a..h
 => "abcdefgh"
...
 
  DB<125> @rest
 => ("e", "f", "g", "h")

  DB<126> $index=4
 => 4
...
 
  DB<128> @rest
 => ("e", "f", "g", "h")

  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