$ perl -MPDL -e "$arr = sequence(10); $odd = where($arr, ($arr%2) == 1); print $odd;"