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

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

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

##</code><code>##

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

##</code><code>##

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