foreach $a1(@a1){
  while(@a2 = <F2>)
  {
      ...
  }
}