my @arr5 = qw (quick brown fox);
my ($speed, $colour, $animal) = @arr5;