$t=time; 
my @a = grep{ $_%5 == 0 } 1 .. 1e6; 
print time-$t;;
0.18144702911377