#! perl
use strict;
use warnings;

$allmac = "~/temp/allmac.txt";
print $allmac;
while (my $line = $allmac)
{
    if ($line =~ /C4:46:19:75:C1:55/)
    {
        $id = (split /\s+/, $line)[0];
		print "ID = $id\n";
    }
}

##</code><code>##

Global symbol "$allmac" requires explicit package name at ./filtermac.pl line 5.
Global symbol "$allmac" requires explicit package name at ./filtermac.pl line 6.
Global symbol "$allmac" requires explicit package name at ./filtermac.pl line 7.
Global symbol "$id" requires explicit package name at ./filtermac.pl line 11.
Global symbol "$id" requires explicit package name at ./filtermac.pl line 12.
Execution of ./filtermac.pl aborted due to compilation errors.