use Time::Local 'timelocal_nocheck';

(undef,undef,undef,undef,undef,undef,$wday,undef,undef) = localtime(timelocal_nocheck(0,0,0,$day_of_year,0,$year));