sub callme ($) {
   my $i = $_[0];
   $array[$i] = "printme-";
}

sub specific {
   my @array = [0, 1, 2, 3, 4, 5];

   for (my $i=0; $i<6; $i++) {
      &callme($i);
   }
   print @array;
}