#!/usr/bin/perl

@mm = qw(jan feb mar apr may jun jul aug sep oct nov dec);

@uc_mm = map {uc $_} @mm;

print "@uc_mm\n";
