foreach $varname (@list)
{
  whatever
}