foreach my $run ('a' .. 'c')
  {
    my $x = S($run);
    print "$run : $x\n";
  }
  sub S
  {
    my $mode = shift;
    return 42     if $mode eq 'a';
    return (42)   if $mode eq 'b';
    my @l = (42);
    return @l     if $mode eq 'c';
  }

##</code><code>##

 
  a : 42
  b : 42
  c : 1