Select Code to Download

use strict;
use warnings;
...
    'GroupID1' => true,
    'GroupID2' => false
);

Bareword "true" not allowed while "strict subs" in use
Bareword "false" not allowed while "strict subs" in use

my %groups = (
    'GroupID1' => \1,
    'GroupID2' => \0
);