my $filename = "faketext.txt";
open my $fh, '<', $filename or die "Can't write to '$filename': $!\n";

##</code><code>##

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";
}