# bad.  Alters @_
sub head { shift }

# good.  Preserves @_
sub head { $_[0] }