Demonstrate simple function to return the first item in an array if called in scalar context.

first_or_all.pl

#!perl
use strict;
use warnings;
use Test::More;

sub first_or_all {
	return @_ if wantarray;
	return shift;
}

sub lowercase {
    return first_or_all ( map { lc } @_ );
}

is (lowercase('Jim'), 'jim' );
is_deeply ([lowercase('Jim', 'Angela')], ['jim','angela'] );
done_testing;