#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my %foo = (
	localtime => [localtime],
	stat => [stat $0],
); 

my %res = (%ENV, %foo);
print Dumper \%res;