#!/usr/perl/perl580/bin/perl  -w

use Algorithm::Cluster qw/mean median/;

use strict;

my ($meanval, $medianval);

my $file = "$ARGV[0]";
my $i = 0;
my (@orfname,@orfdata,@weight,@mask);

open(DATA,"<$file") or die "Can't open file $file: $!";

open(OUT,">teste") or die "Can't open file $file: $!";

while(<DATA>) {

	chomp(my $line = $_);
	my @field     = split /\t/, $line;
	$orfdata[$i]  = [ @field[1..17] ];
	++$i;
}
close(DATA);


foreach (@orfdata) {
	$meanval   = Algorithm::Cluster::mean($_);
	$medianval = Algorithm::Cluster::median($_);
	print "Values are: (", join(", ", @$_), ")\n";
	printf("Mean is   %7.3f\nMedian is %7.3f\n\n", $meanval, $medianval);
}