Select Code to Download

  my ($key, $val) = split /\t/, $line;
    push @{ $hash2{$key} }, $val;

$VAR1 = {
          '211560_s_at' => [
                             'P'
...
                             'P'
                           ]
        };