Select Code to Download

sub sortQ2
{
...
    sortQ2($s, $m-1, $dst) if ($s < $m - 1);
    sortQ2($m+1, $e, $dst) if ($m + 1 < $e);
}

use Data::Alias;

...
    ($s < $m - 1) && sortQ2($s, $m-1, $dst);
    ($m + 1 < $e) && sortQ2($m+1, $e, $dst);
}