foreach $item (@xray){ 
$item =~ s/^ *//g;
$item =~ s/ *$//g;
$item =~ s/\s+/ /g;
push(@clean, $item);
}

##</code><code>##

open (FILE1, "$file1_val") or die;
open (FILE2, "$file2_val") or die;
@xray=<FILE2>;
    for $line (<FILE1>) {
     if (!(grep $line eq $_, @xray)) {
       print "$line\n"
     }
    }
close FILE1;
close FILE2;
}