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