With my favourite date module, Date::Simple:

use strict;
use warnings;
use Date::Simple qw(date);

my ($year, $day_of_year) = (2008, 127);
my $d = date("$year-01-01") + $day_of_year - 1;
print $d, "\n";
__END__
2008-05-06
[download]