use strict; my @aryA = ( "radish", "banana", "orange", "apple", "ginger", "banana", "strawberry", "grape", "apple" ); my @aryB = ( "radish", "ginger", "potato" ); my $str0; my $str1; ## 配列A $str0 = join(", ", @aryA); ## 配列Aから配列Bの要素排除 { my %ex = map( ($_=>0) , @aryB ); my @ans = grep( !exists($ex{$_}), @aryA ); $str1 = join(", ", @ans ); } print "0:$str0\n"; print "1:$str1\n";