sub SCALAR::SCALAR { ${+shift} } sub ARRAY::ARRAY { @{+shift} } sub HASH::HASH { %{+shift} } #### my $scalar = $sref->SCALAR; my @array = $aref->ARRAY; my %hash = $href->HASH;