Select Code to Download

@fields_from=qw|field1 field2 field3 field4 field5 field6 field7 field
+8 field9 field10 field11 field12 field13|;

...
   {
      print "$key => $value\n";
   }

field1 => "33", "GS4", "24", "34", "4", "24034004", "1183031", "407785
+", "1", "cc", " zz", "0", "xx"
Use of uninitialized value in concatenation (.) or string at ./script.
+pl line 159, <FROM> line 2.
field2 =>
Use of uninitialized value in concatenation (.) or string at ./script.
+pl line 159, <FROM> line 3.
field3 =>