for my $file (glob("$dir\/messages"))