RosettaCodeData/Task/Associative-array-Creation/Perl/associative-array-creation-2.pl

print $hash{key1};

$hash{key1} = 'val1';

@hash{'key1', 'three'} = ('val1', -238.83);