use DateTime::Format::RFC3339 qw( );

my $f = DateTime::Format::RFC3339->new();
say $_->set_time_zone('Europe/Moscow')->hms()
   for
      $f->parse_datetime('2014-09-01T12:00:00Z'),
      $f->parse_datetime('2015-09-01T12:00:00Z');