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

6 lines
105 B
Perl
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
print $hashref->{key1};
$hashref->{key1} = 'val1';
@{$hashref}{('key1', 'three')} = ('val1', -238.83);