my $x = dopen( '/dev/null', 'file-not-found', '/etc/passwd' );

sub dopen {
    my @t = map {
        my $fh;
        open $fh, '<', $_ and <$fh> or warn "Can't open `$_': $!\n";
    } @_;
    \@t;
}
__END__
Can't open `/dev/null':
Can't open `file-not-found': No such file or directory