my %filenames =();
foreach( <post*.*> ) {
    $filenames{$_} = -M $_;
}