perlのgrepで空文字を配列から消す  [perl]  [tips]  [idiom]

my @result = grep{$_} @array;