Select Code to Download

$whrcls = { ID => $id, color => $color1 };
# OR something like
my %params = ( ID => $id, color => $color1 );
$whrcls = \%params;