my $foo = $$data; # ^ # |