use Data::Dumper;
print Dumper [  map { [ $_, [stat]->[10], [stat]->[9] ] } @files  ];