my($s, $t, $u) = @something;
say $s;
say $t;
say $u;

--output:--
a
b
c