Select Code to Download

my %B = map { $_ => 1 } @B;
foreach my $data ( @A ) {
    push @A_not_B, $data unless $B{$data};
}

@A_not_B = grep { ! $B{$_} } @A;