use strict;

&specific();

sub callme {
   my ($array,$i) = @_;
   $array->[$i] = "printme-";  # note the arrow operator
}

sub specific {
   my $array = [(0..5)];

   &callme($array,$_) for (0..$#$array);

   print join("\n", @$array), "\n";
}