use strict;
use warnings;

my $ref = &mysub1;
print @$ref[0] . ' ' . @$ref[1] . "\n";

my ($a,$b) = &mysub2;
print "$a $b\n";

my @arr = &mysub3;
print join(' ', @arr) . "\n";

&mysub4;
print join(' ', @_) . "\n";

# Return a reference to an array...
sub mysub1 {
    return [1,2];
}

# Return individual values...
sub mysub2 {
    return (3,4);
}

# Return an array...
sub mysub3 {
    my @arr = (5,6,7);
    return @arr;
}

# Assign values to the default
# input / output global array...
sub mysub4 {
    @_ = (8,9,10);
}
[download]

There's probably several others as well (I didn't bother explaining how to pass hashes, for instance), but this should get you started.