Sorry, could you explain the code. I am a little novice in this kind of code :-(
I have tried this one, but it doesn't work:
$i=0;
$a="c";
@array = (a,b,c,d,e,f);
print map{$index{$a}=$i++}@array;
I have a static array and I need call to my subrutine many, many times:
my ($before, $after)...