Select Code to Download

use strict; 
use warnings; 
...
--output:--
3
a

my @something = ('a', 'b', 'c');
...
a
b
c

($d, $e) = @something;
say $d;
...
--output:--
a
b

($d) = @something;
say $d;

--output:--
a

$d = @something;
say $d;

--output:--
3

my($s, $t, $u) = @something;
say $s;
...
a
b
c