#!/usr/bin/perl -w
use strict;

my $scalar;
my @list;

sub foo {
    return (42, 24, 10);
}

sub bar {
    my @array = (42, 24, 10);
    return @array;
}

$scalar = foo();          # same as: $scalar = (42,24,10);
@list   = foo();          # same as: @list   = (42,24,10);
print "$scalar:@list\n";  # prints: 10:42 24 10

$scalar = bar();          # same as: $scalar = @array;
@list   = bar();          # same as: @list   = @array;
print "$scalar:@list\n";  # prints: 3:42 24 10
__END__