use strict; use warnings; use Data::Dumper; use File::Find; my @file_list; my $directory = 'C:\Strawberry\perl\site\lib'; my ($file, $time, $ctime); find ( \&wanted, $directory ); sub wanted { return unless -f; return unless /\.(pl|pm)$/; $file = $File::Find::name; $ctime = (stat $File::Find::name)[10]; $time = scalar localtime($ctime); push (@file_list, [$file, $time]); } print Dumper @file_list;