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

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