Select Code to Download

#!/usr/bin/env perl -l

...
        print join "\t" => map { $Hash{$_}[$i] } @keys;
    }
}

A,      B,      C,      D
HYU     TU6     11      01
                09      11
                88      
                2