#!/usr/bin/perl -l

use strict;
use warnings;
use Date::Calc qw/Add_Delta_Days Date_to_Text/;

my $yr1 = 2008;
for my $yday1 (272, 273, 274) {
  print Date_to_Text(Add_Delta_Days($yr1, 1, 1, $yday1));
}