Select Code to Download

use strict;
use warnings;
...
   @partTuples;

print Dumper(\@uniquePTs);

$VAR1 = [
          {
...
            'id' => 'xyz'
          }
        ];