Help for this page

Select Code to Download

Select or download this

/opt/perl/bin/perl5.10.0 -M5.10.0 -e 'sub display(_){say $_[0]};@a=();
+display(@a);push@a,"x";display(@a)'