#!/usr/bin/perl

use warnings;
use strict;
use v5.20;

say undef;
say !undef;
say !!undef;

say map { grep { // } @_ } (!undef)[!!undef];
{
    say 1;
}
exit $?;
# what is the exit status?