for my $a (@a) {
  unless (grep(/^$a$/,@b)) {
    push(@c,$a);
  }
}