my $allmac = ...
...
        my $id = ...

##</code><code>##

while (my $line = $allmac)

##</code><code>##

open (my $fh, '<', $allmac) or die "Can't open file '$allmac' for reading: $!";

while (my $line = <$fh>)
{
    ....