Select Code to Download

sub foo {
  my ($aChars, $ch) = @_;
...
my @aChars =('a','b','c','d');
print "c=", findChar(\@aChars, 'c'), "\n";
# outputs c=2

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

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