i.e. of file written to hash
Expand|Select|Wrap|Line Numbers
- ASDF 5.908
- ASDF 5.902
- ASDF 5.123
- QWER 3.098
- QWER 3.023
- QWER 3.013
- ZXCV 2.345
- ZXCV 2.312
- ZXCV 2.123
i.e.
Expand|Select|Wrap|Line Numbers
- ASDF 5.908
- QWER 3.098
- ZXCV 2.345
Expand|Select|Wrap|Line Numbers
- %hash2;
- for $key (keys %hash2) {
- $value_key = "@{[keys $key}]}";
- if (exists $value_key) {
- delete $key;
- }
- }
- undef hash2;
- print %hash2;
- exit;