foreach my $logfile ( <./report*> ) 
{
    chomp($logfile);
    chomp(my @ll = `ll $logfile`);
    print "\n\n--------------------------------\n@ll\n";
    printf ("%22s %7.2f %7.2f %7.2f %7.2f %7.2f %7.2f\n", $logfile, -M _, -A _, -C _, -r _, -w _, -O _);
}