配列から一部の要素を覗いた配列を作る
use strict; use warnings; my @aaa = qw/ a123 b123 c123 /; my @bbb = grep {$_ ne "a123"} @aaa; printf "%s\n", join ",", @aaa; printf "%s\n", join ",", @bbb; __END__ a123,b123,c123 b123,c123
use strict; use warnings; my @aaa = qw/ a123 b123 c123 /; my @bbb = grep {$_ ne "a123"} @aaa; printf "%s\n", join ",", @aaa; printf "%s\n", join ",", @bbb; __END__ a123,b123,c123 b123,c123