sub dopen {
    my $ref = [];
    @$ref = map {
         open my $fh, '<', $_ or warn "Can't open `$_': $!\n";
         <$fh>;
     } @_;
     return $ref;
}