$ cat sample1.pl use strict; my @aryA = ( "radish", "banana", "orange", "apple", "ginger", "banana", "strawberry", "grape", "apple" ); my $str0; my $str1; ## 配列A $str0 = join(", ", @aryA); ## 配列Aから重複排除 { my %ans; map( { $ans{$_}=0 } @aryA ); $str1 = join(", ", keys(%ans) ); } print "0:$str0\n"; print "1:$str1\n";