To be more blatantly precise, you can grab the parameters "name1", "name2", etc. like this:

foreach my $i (grep {/^name\d+$/} keys %in) {
  print "$i: $in{$i}\n";
}
[download]

buckaduck