Merge pull request #2972 from hchienjo/perl_cheatsheet_fix

remove improper use of shift when unpacking from @ARGV

share/goodie/cheat_sheets/json/perl.json

@@ -132,7 +132,7 @@
         }],
         "Basic Syntax": [{
             "val": "Read command line params",
-            "key": "($a, $b) = shift(@ARGV);"
+            "key": "($a, $b) = @ARGV;"
         }, {
             "val": "Define subroutine",
             "key": "sub p\\{my $var = shift; ...\\}"