perl -le 'print join " ", grep { $_ > 4 } (1,7,2,6,3,5,4)'