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