sidburn@sid:~$ perl -MData::Dumper -wle 'opendir my $f, "." or die $!; my @x = stat $f; print Dumper(\@x)'
$VAR1 = [
          65026,
          131,
          16877,
          78,
          1000,
          1000,
          0,
          '4096',
          1262686289,
          1265818007,
          1265818007,
          4096,
          16
        ];