8 
4 
7 
3 
1 
7 
4 
6 
3 
7 
5

use Data::Dumper; 
use Carp; 
 
my @numArray = (); 
my $count = 0; 
 
	open( my $input_fh, '<', "test/median.txt") 
		or croak("Can't open file $!.\n"); 
 
while (my $line = <$input_fh> ) { 
	print $line; 
	if ($count < 3)	{ 
		push(@numArray, $line); 
		$count += 1; 
	} 
	elsif ($count == 2) { 
		my($medianValue) = Math::NumberCruncher::Median(\@numArray); 
		print "Median " . $medianValue; 
	} 
	else { 
		#print Dumper(\%$numArray); 
	} 
}

use strict; 
use warnings; 
use 5.010; 
 
use List::MoreUtils qw {natatime}; 
use Math::NumberCruncher; 
 
open my $DATA, '<', 'data1.txt'; 
chomp(my @values = <$DATA>); 
 
my $stepper = natatime 3, @values; 
 
while ( my @chunk = $stepper->() ) { 
    my $median = Math::NumberCruncher::Median \@chunk; 
    say $median; 
} 
 
--output:-- 
7 
3 
4 
6