in reply to Difference arrays.
my @a = (43,43,44); my @b = (43,43); my %h = map {($_=>1)} @a; delete @h{@b}; print join(",",keys %h); [download]
work? No!
Try it with the other example of the question.