I'm not seeing the point of using a hash here... Since the hash keys are a contiguous, zero-based range of integers, why not just use an array instead of making a hash behave like one?

my @month_name = qw(Jan Feb Mar Apr May Jun Jul Aug Sept Oct Nov Dec);

my ( $day, $month, $year ) = (localtime)[ 3, 4, 5 ];
$year = $year + 1900;

print join " ", $day, $month_name[$month], $year;
[download]