sub SCALAR::SCALAR { ${+shift} } sub ARRAY::ARRAY { @{+shift} } sub HASH::HASH { %{+shift} }