#!/usr/bin/perl
# benchmark_test.pl

use Benchmark;

open(IN, "testfile");
while (<IN>) {
	chomp;
	push(@test_array, $_);
}
close(IN);

$test_ref = \@test_array;

$t0 = timeit(2000, sub { @var_results = sort {$a cmp $b} @test_array; });
$t1 = timeit(2000, sub { @ref_results = sort {$a cmp $b} @$test_ref; });
$td = timediff($t0, $t1);
	
print "\n";
print "normal var (t0)\n";
print "===============\n";
print timestr($t0), "\n\n";

print "reference (t1)\n";
print "==============\n";
print timestr($t1), "\n\n";

print "difference (t0, t1)\n";
print "===================\n";
print timestr($td), "\n\n";