Help for this page

Select Code to Download

Select or download this

my @files;
while (<*.txt>) {
    push @{$files[ (localtime +(stat)[9])[4] ]}, $_;
}