Select Code to Download

#!/usr/bin/perl

...
    ( $key eq 'dup2' ) and return 1;
    return 0;
}

$VAR1 = {
          'dup1' => [
...
          'uniq1' => 1,
          'uniq2' => 2
        };