Select Code to Download

  DB<2> p shift @{[42..59]}
42

  DB<3> $shift = sub { shift @{$_[0]} }

  DB<4> p [42..59]->$shift
42

  DB<5> p (42..59)[0]
42

  DB<6> p [42..59]->[0]
42