Select Code to Download

#!/usr/bin/perl
no warnings;
use Filter::Simple;
...
__DATA__
Xarr=[1..3];
print "@Xarr";

before:
Xarr=[1..3];
print "@Xarr";
...

eval:
1 2 3

Can't modify constant item in scalar assignment at /home/lanx/perl/sig
+il.pl line 29, near "];"
Execution of /home/lanx/perl/sigil.pl aborted due to compilation error
+s.