C:\Users\alex>perl -MData::Dumper -E "for $x (chr(34).chr(34),'.','..') { @a=stat($x); say Dumper(\@a) }"
$VAR1 = [
          2,
          0,
          16895,
          1,
          0,
          0,
          2,
          0,
          1340557931,
          1340557931,
          1336337436,
          '',
          ''
        ];

$VAR1 = [
          2,
          0,
          16895,
          1,
          0,
          0,
          2,
          0,
          1340557931,
          1340557931,
          1336337436,
          '',
          ''
        ];

$VAR1 = [
          2,
          0,
          16749,
          1,
          0,
          0,
          2,
          0,
          1339842184,
          1339842184,
          1247541608,
          '',
          ''
        ];


C:\Users\alex>