my @a;
my @b;
while (<FILE>)
{
  ...