#Define three x variables:
$x = 10;

@x = (1, 2);

sub x {
  print "x\n";
}

$val = *x{ARRAY};
print "@{$val}", "\n";

--output:--
1 2

$what = *x;
print $what, "\n";

--output:--
*main::x

$val = $what{ARRAY};
print "@{$val}", "\n";

--output:--
(newline)