foreach $who (@who) { 
  # ... do something with $who 
}