#!/usr/bin/perl
use warnings;
use strict;

print "Enter date: ";
chomp(my $date = <STDIN>);

my ($day, $month, $year) = split '/', $date;
print "$day $month $year\n";

my $m;
my %dates = map { $_, sprintf '%02d', ++$m }
                qw/Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/;

my $month_n = $dates{$month};
print "$day $month_n $year\n";