#!/usr/bin/env perl

use v5.14;
use returning { lreturn => sub { wantarray ? @_ : $_[0] } };

sub lowercase {
	lreturn map { lc; } @_;
	warn "this line never executes";
}

say for lowercase('Alice', 'Bob');
say scalar lowercase('Carol', 'Dave');