my %mapping = ( ARRAY  => '@', HASH   => '%', SCALAR => '$',
                    GLOB   => '*', REF    => '$', CODE   => '&' );
    return eval $mapping{$type}.'{$_[0]}';