$ ./spw805781
@shapes = (
            'SHAPES GREEN1;SIZE 240 500 340 930;SIZE 350 500 240 590;SIZE 295 390 015 490;SIZE 350 210 760 300;',
            'SHAPES GREEN2;SIZE 450 310 680 690;SIZE 450 110 680 490;SIZE 215 800 560 900;',
            'SHAPES GREEN;SIZE 240 500 340 930;SIZE 350 500 240 590;SIZE 295 390 015 490;SIZE 350 210 760 300;',
            'SHAPES BLUE;SIZE 450 310 680 690;SIZE 450 110 680 490;SIZE 215 800 560 900;'
          );
$