sub RowSort {

    my($a1, $a2) = $a =~ /(\d+),(\d+)/;         
    my($b1, $b2) = $b =~ /(\d+),(\d+)/;         

    $a2 <=> $b2 or $a1 <=> $b1;
}