Select Code to Download

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

  my $a = proc_a('fred') ;
  my $b = proc_b('bill') ;
...
    my ($x) = @_ ;
    return ($x.'_0', $x.'_1', $x.'_2', $x.'_3') ;
  } ;

  proc_a: 4
  proc_b: bill_3