my $stat = { 
 zip 
    @{[qw(dev ino mode nlink uid gid rdev size atime mtime ctime blksize blocks)]},
    @{[ stat '/tmp' ]}
};