while (my $line = <MIC>){
    chomp $line;
    next if exists $preused{$line};
    $preused{$line} = 1;
    ...