Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w

...
        print "values: $test{$testkeys}\n";
    }
}

Select or download this

This outputs:
keys: 40        50      values: 4
...
keys: 10        20      values: 1
keys: 20        30      values: 2
keys: 40        50      values: 4