Select Code to Download

parse file-1
for every line:
...

print out the datastructure in the way you like

# pay attention to windows doublequote around the oneliner, on Linux i
+s perl -e '...' not perl -e ".."

...
        };

# spacing and comments added

...
# B::Deparse tell us the syntax is OK
-e syntax OK