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