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

##</code><code>##

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