use 5.010;
use List::Util qw(first);

sub sub1 {
	first { return 1 } @_;
	return 2;
}

sub sub2 {
	grep { return 1 } @_;
	return 2;
}

say sub1(0);
say sub2(0);