#!/usr/bin/perl -l

sub test {
    return wantarray ? @_ : $_[0];
}

my @arr = test(1);
print "@arr";

@arr = test(1,2,3);
print "@arr";

my $scalar = test(1,2,3);
print $scalar;

__END__
1
1 2 3
1