while(my $eachLine = <$fh>)
{
     chomp($eachLine);
     my @dataset = split( /[\s,]+/, $eachLine );

     print "Median: ",        median(@dataset),  "\n";
     print "Mean: ",          mean(@dataset),    "\n";
     print "Standard Dev.: ", std_dev(@dataset), "\n";
}