Select Code to Download

#! /usr/bin/perl -w
use strict;
...
my @aa = grep { ! exists $d{$_} } @a;
print "@aa\n";
print "@bb\n";

1 3 5
6 8