$scalar = (2, 5, 7, 9);

##</code><code>##

  my $a = proc_a('fred') ;
  my $b = proc_b('bill') ;

  print "proc_a: $a\n" ;
  print "proc_b: $b\n" ;

  sub proc_a {
    my ($x) = @_ ;
    my @a = ($x.'_0', $x.'_1', $x.'_2', $x.'_3') ;
    return @a ;
  } ;

  sub proc_b {
    my ($x) = @_ ;
    return ($x.'_0', $x.'_1', $x.'_2', $x.'_3') ;
  } ;

##</code><code>##

  proc_a: 4
  proc_b: bill_3