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