Select Code to Download

 foreach  my $ts ( @{$test}  )
    {
...
            if ( $ts ne $sc ) # <- You will fail here
            {
                print "FALSE\n";

1. loop: 'A' ne 'A' -> okay. They are equal
2. loop: 'A' ne 'B' -> TRUE So fail...