while (my $line = $allmac)