while ($qx < @q) {
    if ( $p[$px] == $q[$qx] ) {
        $px++;
        $qx++;
    } else {
        push @diff, $p[$px++];
    }
}
push @diff, @p[$px .. @p-1];