Select Code to Download

  
  DB<21> $par{"margin-left"} = "a" 

...

  DB<23> p $actual
margin-horizontal

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