Select Code to Download

use strict;
use warnings;
...
print "p: @p\n";
print "q: @q\n";
print "d: @diff\n";

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