if($sorted_values=~/([abcdefghijklm]{2})/){

# Rest of code here

}

##</code><code>##

    if (   $sorted_values =~ m/a{2}/
        or $sorted_values = ~m/b{2}/
        or $sorted_values = ~m/c{2}/
        or $sorted_values = ~m/d{2}/
        or $sorted_values = ~m/e{2}/
        or $sorted_values = ~m/f{2}/
        or $sorted_values = ~m/g{2}/
        or $sorted_values = ~m/h{2}/
        or $sorted_values = ~m/i{2}/
        or $sorted_values = ~m/j{2}/
        or $sorted_values = ~m/k{2}/
        or $sorted_values = ~m/l{2}/
        or $sorted_values = ~m/k{2}/)
    {

##</code><code>##

my (@p2_hand,@p3_hand,@p4_hand,@p5_hand);
my (@p6_hand,@p7_hand,@p8_hand,@p9_hand,@p10_hand);