Select Code to Download

#!/usr/bin/env perl

...
p1  X   gls X   X   NA
p2  X   cis X   X   0
p2  X   NA  X   X   9

$VAR1 = {
          'p1' => {
...
                    'cis,NA' => '0,9'
                  }
        };