fized timestamps in perl