my $k='c';
my $i=0;

for (@aChars) { last if $k eq $_; $i++; };

print "$k=$i\n";
#also outputs c=2