#!/usr/bin/perl --
use strict;
use warnings;
use Data::Dump qw/ dd /;
my $now = localtime;
dd( $now );
my( $weekday, $month, $monthday, $time, $year ) = split ' ', $now;
dd( ( $weekday, $month, $monthday, $time, $year )  );
__END__
"Mon Mar  9 20:38:38 2015"
("Mon", "Mar", 9, "20:38:38", 2015)