sub sortArray(\@) {
    # Array is in @{$_[0]}
}
...
sortArray @arr;