while (<DATA>) {
    . . . create $name, $rex and $FH . . .
    push @rexlist, [ $regex, $name, $FH ];
}