print join ' - ', grep { -d } @list; print join(' - ', grep { -d } @list);