my $var;
@{$var}{ qw( one two red blue )} = ('fish') x 4;