I tried a variation on your question. What I wanted was a quick "visual" and diff of the arrays. I used Array::Heap and altered the heap.

#!/usr/bin/perl

use strict;
use warnings;
use Array::Heap;
use Data::Dumper::Concise;
use Text::Diff;
use Text::Diff::Table;

print "==\n";
my @arr1 = qw[20 20 19 20 18];
make_heap @arr1;
print Dumper @arr1;
print "==\n";

my @arr2 = qw[19 20 16 19 20];
make_heap @arr2;
print Dumper @arr2;
print "==\n";

my $file1 = \@arr1;
my $file2 = \@arr2;
 
my $diff = Text::Diff::Table->new;
$diff = diff $file1, $file2, { STYLE => "Table" };
print $diff, "\n";
[download]