use experimental 'signatures';

sub map_die ($ar) {
    eval {map {die} @$ar};
}

sub for_die ($ar) {
    eval {
        for (@$ar) {
            die;
        }
    }
}