#!/usr/bin/perl -w

use strict;
no strict 'refs';

my $A;
my $var;

$A = "YES";
$var = "A";
print "$A\n";
print "$var\n";
print "$$var\n";

##</code><code>##

YES
A
Use of uninitialized value at ./work2.pl line 13.