my $r = Scalar::Util::reftype( $thing );
my $tied;
if ( $r eq 'ARRAY' ) {
    $tied = tied @$r;
}
elsif ( $r eq 'HASH' ) {
    $tied = tied %$r;
}
else { die "How did we get '$r'??\n"; }