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