Yes you are correct Chris. I was having difficulty keeping column 2(accession) referenced to column 3(organism). I understand the code as the values are pushed into the array but I did not understand how to keep the above referenced to each other. I assume a hash but I was not sure how to implement it along with the other hashes. I was also having a problem with the organism names being too long. I came up with a solution for both. I would rather learn than be given a solution so let me know if this is acceptable practice. Again, thanks for your help.

use strict;
use warnings;
use Acme::Tools;
use Text::Table;

my %data;
my %freq;
my $ref_filelist = $ARGV[0];
open(BLASTFILE, $ref_filelist )
   or die "Could not open Reference filelist...($!)";
   
while (<BLASTFILE>) {
    chomp;
    
    my ($accession,$organism, @vals) = (split /\t/)[1..5];
    my $organismcut = substr( $organism, 0,75 );
    my $tot =$accession . $organismcut;
    #print "$tot\n";
    
    $freq{ $tot }++;
    
    my $col = 4;
    for my $val (@vals) {
        push @{ $data{$tot} {$col} }, $val;
        $col++;
    }
}

my @headers =  qw/ Organism Freq Median_Eval Med_Contig_Length Med_Map
+ped_Length /;

my $tb = Text::Table->new( map {title => $_}, @headers);

for my $test (sort {$freq{ $b } <=> $freq{ $a }} keys %freq) {
    my @row = ($test, $freq{ $test });
    for my $col (sort keys %{ $data{$test} }) {
        push @row, median(@{ $data{$test}{$col} });
        
    } 
    $tb->load( [@row] );
    #print "@row\n"; 
    
}
print $tb;

[download]

In reply to Re^3: Statistics via hash- NCBI BLAST Tab Delimited file by Paragod28
in thread Statistics via hash- NCBI BLAST Tab Delimited file by Paragod28

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.