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