@alex = ( fred => 44, 'joe' => 2983, mike => -94 ); %heather = ('This', 'will', 'actually', 'work'); %heather = @alex; print "C: [$heather{'fred'}] [$heather{'mike'}] [$heather('joe')] ", "[$heather{'This'}]\n"; $heather{'dingbat'} = 33; $heather{'giggles'} = 870; @alex = %heather; print "D: @alex\n";