use strict;
my $try = $ARGV[0];
if ($try)
{
    my $var = 'joe';
    $$var = 'test';
}