my @shapes = ( [qw/circle square triangle polygon/], [qw/red green blue yellow fuschia/] );