my $filename = "$directory$file";
my @array=stat($filename);

##</code><code>##

  DB<2> x @array
0  File::stat=ARRAY(0x3055e8e4)
   0  1638407
   1  281494
   2  33188
   3  1
   4  500
   5  1231
   6  0
   7  97900
   8  1375400720
   9  1375371182
   10  1375371182
   11  4096
   12  192

##</code><code>##

my $time = $array[9];

##</code><code>##

 my $time = $array[0][9]

##</code><code>##

my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$blocks) = stat($filename);