Help for this page
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;' ); $