Removes duplicates from the input file (first parameter on command line) and saves clean/dupe files to separate files

dedupe.pl

#!/usr/bin/perl

# removes duplicates from the input file (first parameter on command line) and saves clean/dupe files to separate files

$file = $ARGV[0];

open (FILE, $file);
open (CLEAN, ">clean.txt");
open (DUPES, ">dupes.txt");
#undef $/;

#$all = <FILE>;

#@lines = split(/\n/, $all);

while ($line = <FILE>) {
    if ($check{lc($line)} != 1) {
        $check{lc($line)} = 1;
        print CLEAN $line;
    }
    else {
        $dupe++;
        #print "$count $dupe Found dupe: $line";
        print DUPES $line;
    }
    #print $line;
    $count++;
    #print "count: $count\n";
}

print "Saved dupes to dupes.txt\nSaved clean list to clean.txt\n";