my $r = ref(1);
$r = ref($r);
$r = ref()
