my(%s,$y,$l,$t,$d);