for (@list) {
   $list[$count]; #yadda yadda
   $count++;
}