in reply to Finding the Remaining of Array by Slice - A quick way?

my %sl;
@sl{@sl} = ();
my @ar2 = grep {!exists $sl{$_}} @ar1;
print Dumper \@ar2;

[download]

After Compline,
Zaxo

In Section Seekers of Perl Wisdom