my @ArrayC = map {
    my $x = $_;
    (grep { $x =~ /^$_/ } @ArrayB) ? () : $x
} @ArrayA;