There are two possible ways I'd do this ..

$mon is always going to be a numeric index, between 0 and 11. We can set up an array of months, then use this index to select out each month in turn:

my @months = ( qw/Jan Feb Mar Apr May ... Dec/ );
my $month  = $months[$mon];
[download]

Alternatively, and definitely overkill, would be to use the Date::Calc module: this contains a Month_to_Text function that can be used to do the same job:

my $month = substr(Month_to_Text($mon + 1), 0, 3);
[download]

On reflection, that's most definitely not as clear, or concise, and I much prefer the first solution.

Just a couple of ideas.
-- Foxcub
A friend is someone who can see straight through you, yet still enjoy the view. (Anon)