sub test { my $var = shift; my $test; $test = 'a' if defined $var; $test .= 'b'; }