# Build the hash and write it to a dbm file: $dbm_file = "class_dbm"; dbmopen(%class_hash, $dbm_file, 0666) || die "Cannot open $dbm_file: $!"; %class_hash = ( 'Terry Evans', 2, 'Shija Johnson', 2, 'Daniel Kelly', 3, 'Scott Steinbrick', 1, 'John Stevens', 2, 'Paul Tillery', 2 );