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

  DB<22> ($actual) = grep { $par{$_} ne "a" } qw/margin-left margin-horizontal margin/

  DB<23> p $actual
margin-horizontal