sub routine { ... my $multi = ''; $multi = 'multiple choice' if wantarray; ... }