I knew this one would be a problem, but I have actually seen it used with use strict no strict refs before. i'd rather not cop out though, so if someone could explain the right way to do it, i'd appreciate it.
#!/usr/bin/perl -w
use strict;
my $i = "test";
my $test = "success";
print "$$i\n";