foreach my $foo (@bar) count $c {
   print $c . "-> " . $foo;
}

##</code><code>##

foreach my $foo (@bar) counting $c {
   print $c . "-> " . $foo;
}