#! /usr/bin/perl
use strict;
use warnings;
for(0..10000){
  mache_was($_);
}

sub mache_was{
  my ($param) = @_;
  $param++;
  print $param,"\n";
}