foreach my $foo qw(a b c d e f g) {
  print $foo,$foo.index;
}