sub { pop; shift; }->(@array);

##</code><code>##

sub { $_[0] = 'whatever' }->(@array);

##</code><code>##

sub { shift; $_[0] = 'whatever' }->(@array);
# changes the *second* element of @array