Unnamed

open(DHCP, "./ic-all") || die "Can't open DHCP DB file: $!\n";

#dump data into array PLI
while ($line = <DHCP>) {
        if ($line !=~ "^#") {
                ($IP, $MAC, $HOSTNAME, $USER, $DATE) = split(/,/, $line);
        @HOSTS = ($IP, $MAC, $HOSTNAME, $USER, $DATE);
        $DNSDB[$cnt][0] = $false;
        $DNSDB[$cnt][1] = $HOSTS[0];
        $DNSDB[$cnt][2] = $HOSTS[1];
        $DNSDB[$cnt][3] = $HOSTS[2];
        $DNSDB[$cnt][4] = $HOSTS[3];
        $DNSDB[$cnt][5] = $HOSTS[4];
        $cnt++;
        $val = $cnt;
        }
}
close(DHCP);


while( $cnt != 0) {
        #Fix crappy txt file
        chomp($DNSDB[$cnt][5]);

        #Testing
        my(@uniq, %exists); push @uniq, grep {!$exists{$_}++} @$_ foreach(@DNSDB);
        print @uniq;

        #Playing around
        #@uniq = grep {!$exists{$_}}++ @{$DNSDB[1]};
        #local $\ = "\n"; print foreach( grep {!$exists{$_}++} @{$DNSDB[1]});

        #Printing ARRAY data
        #print "$DNSDB[$cnt][1],$DNSDB[$cnt][2],$DNSDB[$cnt][3],$DNSDB[$cnt][4],$DNSDB[$cnt][5]\n";

        $cnt--;
}