Select Code to Download

foreach $e (@a, @b) { $count{$e}++ }

...
        push @diff, $e;
    }
}

use strict;
use warnings;
...
my @symdiff = sort keys %symdiff;

print "Symdiff = @symdiff\n";