$chain{margin}    = [qw/margin-left margin-horizontal margin/ ];
# etc
($actual{$head}) = grep { $par{$_} ne "a" } @{ $chain{$head} };