@a=(1,2,3,4,5); 
@b=grep {int($_/2) == 1} @a; 
print join $/,@b,"";