my @shapes = (
            [qw/circle square triangle polygon/],
            [qw/red green blue yellow fuschia/],
            [qw/a b c d e f g h i j k/] ,
            [qw/Movie TV Radio/] ,
 );