Select Code to Download

sub N_scalars {
  my ($prefix, $qty) = @_;
  ...unknown magic here...
}

N_scalars("foo",5);

$foo_1 = '';
$foo_2 = '';
$foo_3 = '';
$foo_4 = '';
$foo_5 = '';

sub arb_scalars {
  foreach $foo (@_) {
    ...unknown magic here...
  }
}

arb_scalars("alfa","bravo","charlie");

$alpha = '';
$bravo = '';
$charlie = '';