Select Code to Download

#! perl -slw
use strict;
...
C:\test>test2
Array of hash of hash : 4088
Hash of array         : 2534

# If $class has feature A
if( substr $cases{ $class }, FEATURE_A ) ) {...

# Add feature G to $class
substr $cases{ $class }, FEATURE_G = '1';