#!/usr/bin/perl
use strict;
use warnings;
use feature qw/ say /;
use Time::Piece;

for my $year (2015, 2016) {
  say sprintf("$year/%02d: ", $_), Time::Piece->strptime("$year $_", "%Y %m")->month_last_day) for 1,2;
}

__END__