Select Code to Download

use strict;

...
my @c = grep {! exists $hash{$_}} @{$listB[0]};

print "$_\n" foreach (@c);