foreach my $count ($[..$#bar) {
    print $count, " -> ", $bar[$count], "\n";
}