for (my $count = 0; $count < @bar; $count++) {
    print "$count -> $bar[$count]\n";
}