foreach $filename ('file1', 'file2', ...) {
    local *RPT;
    open(RPT, '<', $filename)
    or die("...\n");

    while (<RPT>)
    {
        chomp;
        ...
    }
}