#!/usr/bin/env perl -l

use strict;
use warnings;

use Time::Piece;

my $this_year = localtime->year;
my @filenames = ('file_name_' . ($this_year - 1) . 12);
push @filenames, "file_name_$this_year$_" for '01' .. '11';

print for @filenames;

##</code><code>##

file_name_201212
file_name_201301
file_name_201302
file_name_201303
file_name_201304
file_name_201305
file_name_201306
file_name_201307
file_name_201308
file_name_201309
file_name_201310
file_name_201311