Select Code to Download

#!/usr/bin/perl

...
    print "Correct solution is @correct;\n";
    print "My solution is @soln.\n";
}

    push ( @soln, $val ) if ( $soln[-1] ne $val );