#!/usr/bin/perl
system ("rm /tmp/kids.txt");

open INPUT, "/tmp/femto_check_edited2.txt" or die $!;
open (IN,"/tmp/utrancell_edited2.txt");
 $kids = "/tmp/kids.txt";

open my $kids, ">", "/tmp/kids.txt" or die "Could not open kids.txt: $!"; #overwrite the file for clearing
while(<INPUT>){
        chomp($_);
        push @list_match, $_; 

}#while
close INPUT;

while ($line=<IN>) {
chop ($line);

$result10 = grep(/$line-Femto_10/,@list_match);
$result11 = grep(/$line-Femto_11/,@list_match);
$result12 = grep(/$line-Femto_12/,@list_match);
$result13 = grep(/$line-Femto_13/,@list_match);
$result14 = grep(/$line-Femto_14/,@list_match);
$result15 = grep(/$line-Femto_15/,@list_match);
        if ($result10 eq 1){
        print "$line-Femto_10\n";
        }else{
        print "$line-Femto_10 er ikke definert\n";
        my $kids = "/tmp/kids.txt";
        open (OUTFILE, ">>$kids");

        print OUTFILE <<"naken"; #unique end of script
        $line-Femto_10 er ikke definert
naken
        close OUTFILE;
        }#if
        if ($result11 == 1){
        print "$line-Femto_11\n";
        }else{
        print "$line-Femto_11 er ikke definert\n";
        my $kids = "/tmp/kids.txt";
        open (OUTFILE, ">>$kids");

        print OUTFILE <<"naken"; #unique end of script
        $line-Femto_11 er ikke definert
naken
        close OUTFILE;
        }#if
        if ($result12 == 1){
        print "$line-Femto_12\n";
        }else{
        print "$line-Femto_12 er ikke definert\n";
        my $kids = "/tmp/kids.txt";
        open (OUTFILE, ">>$kids");

        print OUTFILE <<"naken"; #unique end of script
        $line-Femto_12 er ikke definert
naken
        close OUTFILE;
        }#if
        if ($result13 == 1){
        print "$line-Femto_13\n";
        }else{
        print "$line-Femto_13 er ikke definert\n";
        my $kids = "/tmp/kids.txt";
        open (OUTFILE, ">>$kids");

        print OUTFILE <<"naken"; #unique end of script
        $line-Femto_13 er ikke definert
naken
        close OUTFILE;
        }#if
        if ($result14 == 1){
        print "$line-Femto_14\n";
        }else{
        print "$line-Femto_14 er ikke definert\n";
        my $kids = "/tmp/kids.txt";
        open (OUTFILE, ">>$kids");

        print OUTFILE <<"naken"; #unique end of script
        $line-Femto_14 er ikke definert
naken
        close OUTFILE;
        }#if
        if ($result15 == 1){
        print "$line-Femto_15\n";
        }else{
        print "$line-Femto_15 er ikke definert\n";
        my $kids = "/tmp/kids.txt";
        open (OUTFILE, ">>$kids");

        print OUTFILE <<"naken"; #unique end of script
        $line-Femto_15 er ikke definert
naken
        close OUTFILE;
        }#if

}#while
close IN;