for ($i = 0; $i <= $ellast; $i++){

$timfn[$i] = &timeshift($timfn[$i]);

if (($timfn[$i+1]) == ($timfn[$i]+1)){$s++; push @secondp, &gofor($timfn[$i],1);}
else {push @secondp , $s; $s=0;}

}