while(<@source>)
{
  ...
}