for (my $i=1135202400; $i <= 1188252000; $i+86400) { print ">$i<\n"; } #### for (my $i=1135202400; $i <= 1188252000; $i++) { print ">$i<\n" unless ($i%86400); } #### >1135209600< >1135296000< >1135382400< >1135468800< >1135555200< >1135641600< >1135728000< >1135814400< >1135900800< >1135987200< ...