- or download this
use strict;
use warnings;
...
set_hash(\%h, 42, 'a', 'b', 'c');
set_hash(\%h, 69, 'x', 'y', 'z');
print Dumper(\%h);
- or download this
use strict;
use warnings;
...
set_hash(\%h, 'jock', 'shock');
set_hash(\%h, 'value', 'abc', 'def', 'ghi', 'jkl', 'xyz');
print Dumper(\%h);
- or download this
$VAR1 = {
'abc' => {
...
}
}
};