my $ref;
$$ref = '';
print $ref;