Select Code to Download

use strict;
use warnings;
...
}

print Data::Dumper->Dumpxs( [ \ @shapes ], [ qw{ *shapes } ] )

$ ./spw805781
@shapes = (
...
            'SHAPES BLUE;SIZE 450 310 680 690;SIZE 450 110 680 490;SIZ
+E 215 800 560 900;'
          );
$