But...

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

# Rest of code here

}
[download]

would match "ab" or "dm".

How about:

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

# Rest of code here

}
[download]