$list->foreach( sub {
  my ($element,$index) = @_;
  print "$index $element\n";
});

##</code><code>##

list.each_with_index { |element,index|
   print "#{index} #{element}\n"
};

##</code><code>##

array.forEach(function(element,index) {
  document.write(index+" "+element+"\n"); // depending on the host
});