Cacher is the code snippet organizer for pro developers

@rocks qw/ bedrock slate rubble granite /;
while(($index, $value) = each @rocks) { # iterates through each element in the @rocks array
  print "$index: $value\n"; # prints every value with its index
}

# Without each, you would have to iterate through all of the indices of the array, 
# and use the index to get the value:
@rocks = qw/ bedrock slate rubble granite /;
foreach $index (0..$#rocks) {
  print "$index: $rocks[$index]\n";
}