sub foo { my ($aChars, $ch) = @_; my $i=0; for (@$aChars) { return $i if $ch eq $_; $i++; }; } my @aChars =('a','b','c','d'); print "c=", findChar(\@aChars, 'c'), "\n"; # outputs c=2