my $r = ref( $value ) && reftype( $value );