sub test {
  my ($hr, $nr) = @_;
  $hr->{"foo$nr"} = "test$nr";
}