#!/usr/bin/perl
use strict;
use warnings;
use Benchmark qw(:all) ;

use List::Util qw(shuffle);
use Digest::MD5 qw(md5);

open my $JOHN, '<', 'dictionary' or die $!;
my @array =  <$JOHN>;
my @sorted = sort @array;

$a = \@array; $b = \@sorted;

timethese(5000, {
     'join' =>
             sub {
                 return join('|',@$a) eq join('|', @$b);
             },  

     'md5' =>
             sub {
                 return Digest::MD5::md5(@$a) eq Digest::MD5::md5(@$b);
             },  
});