óĻĒĢĮÓÅĪ, ŽŌĻ ÓĮŹÄ-ÜĘĘÅĖŌŁ, ĖĻŌĻŅŁÅ ×ĢÉŃĄŌ ĪĮ JSON... ĪÅ ĻÓĻĀĻ ĀĮĒ, ĪĻ ×ĻŌ ÜŌĻ...<br><br>perl -MData::Dumper -e'my @a=qw(a b c); my @b=map $_.="!!!",reverse @a; print Dumper \@a, \@b'<br>$VAR1 = [<br>ššššššššš 'a!!!',<br>
ššššššššš 'b!!!',<br>ššššššššš 'c!!!'<br>ššššššš ];<br>$VAR2 = [<br>ššššššššš 'c!!!',<br>ššššššššš 'b!!!',<br>ššššššššš 'a!!!'<br>ššššššš ];<br><br>