What do you mean by "the values"? It works for me:

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

use DateTime;

my $year    = 2014;
my $month   = 8;
my $day     = 20;
my $hour    = 21;
my $minutes = 13;
my $seconds = 1;

my $dt = 'DateTime'->new(
      year       => $year,
      month      => $month,
      day        => $day,
      hour       => $hour,
      minute     => $minutes,
      second     => $seconds,
    );

print "DT: $dt\nyear: $year\n";

__END__

Output:
DT: 2014-08-20T21:13:01
year: 2014
[download]