in reply to check for existing value, else set to default

$a = defined $a ? $a : 'default;

In Section Seekers of Perl Wisdom