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') ;
  } ;