Select Code to Download

perl -wle '$a[1]=[1];print $a[1]->[0];if($a[1]->[1]){print$a[1]->[1]}'
r
perl -wle '$a[1]=[1,2];print$a[1]->[0];if($a[1]->[1]){print$a[1]->[1]}
+'
r
l

for ( my $i = 0 ; $i < scalar @results ; $i++ ) {
        if ( $results[$i]->[0] eq $disease_name_pocus[0] ) {
...
                print MARKER "$results[$i]->[1]\t$results[$i]->[4]\n";
            }
        }