my @something = ('a', 'b', 'c'); my $d; my $e; my $f; ($d, $e, $f) = @something; say $d; say $e; say $f; --output:-- a b c