yep. in perl6 this attribute would be nice.
there is even one more way to go:

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

or maybe:

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