Select Code to Download

#!/usr/bin/perl -w

...
);

print join(' ',%data);

#!/usr/bin/perl -w

...
);

print join(' ',%data);

Bareword found where operator expected at pod-in-structure.pl line 7, 
+near ""a" key"
        (Missing operator before key?)
...

="
Execution of pod-in-structure.pl aborted due to compilation errors.