#!/usr/bin/perl

@{"color"} = qw(a b c);  # this creates new name "color"
                         # and uses ARRAY slot of the name
@{"color-ab"} = qw(1 2 3); # this also creates new name
                           # and uses ARRAY slot of it.

print join(',', @color), "\n"; # here I use the name created above
print join(',', @{"color-ab"}), "\n"; # I can't access this name
                                      # using "normal" perl syntax
*{"other"} = *{"color-ab"};  # this creates new name "other",
                             # and this name shall reference 
                             # the same slots as "color-ab" name
print join(',', @other), "\n";

${"color-ab"} = 10;  # set "color-ab" variable
print $other, "\n";  # see the difference in $other.