Select Code to Download

sub signature {
  my $arrayref = shift;
...
  # if not, use a different character to join them
  return join '.', @$arrayref;
}

my %seen;
for my $arrayref (@all_inputs) {
...
  $arrayref->[$_] *= $count for (0, 1);
  print_result($arrayref);
}