sub StartTable {
    my $class = shift;
    my %self = @_;
    my $color = $self{'Color'};
    ...
}