#!/usr/bin/env perl
#      http://perlmonks.org/?node_id=1196297
# 	$Id: wantarray.pl,v 1.4 2017/07/30 10:03:17 karl Exp karl $

use strict;
use warnings;
use Try::Tiny;
use Getopt::Long;
use feature qw(say);

my $flag;

GetOptions( "flag" => \$flag ) or die(qq(Fubar\n));

my $array = [ 1 .. 10 ];

say join "|", @$array;

say join "|", nose($array);

try {
    ($flag) ? say join "|", nose() : nose();
}
catch {
    warn $_;
};

sub nose {
    my $array = shift;
    map { --$_ } @$array;
    die "Jackass!" unless defined wantarray;
    (wantarray) ? @$array : $array;
}

__END__