DB<1> ($blue, $red) = qw / b r/; DB<2> say ${$_} for qw /blue red/; b r