my %class;
$class{def}[0] = $rectangle;
$class{def}[1] = $polygon;
$class{def}[2] = $rectangle2;
$class{jam}[0] = $tangle;
$class{jam}[1] = $gon;
$class{jam}[2] = $tangle2;