Select Code to Download

my($x) = foo(...);

my $x = foo(...);

my ($x) = split//,"foo";          # $x eq 'f'
my $x   = split//,"foo";          # $x == 3
...

my ($x) = localtime;              # seconds
my $x   = localtime;              # String like ctime(3)

sub foo { my @a = qw(foo bar); @a } 
sub bar { my @a = qw(foo bar); wantarray ? @a : $a[0] } 
...
my $q  = foo;    # $q == 2     (different information)
my($r) = bar;    # $r eq 'foo'
my $s  = bar;    # $s eq 'foo' (same information)