Select Code to Download

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

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