$val = *x;
print "@{ *{ $val } }";

##</code><code>##

print $val;

--output:--
*main::x

##</code><code>##

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

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

*main::x
GLOB(0x10082ad88)

##</code><code>##

$fh = *STDOUT;

print $fh 'hello', "\n";  

--output:--
hello

##</code><code>##

$STDOUT = 10;
$fh = *STDOUT;

print ($fh + 2);

--output:--
2