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