for my $count (0..$#bar) {
     print $count . "-> " . $bar[$count];
}