i had these errors when i ran the last example code on perl v5.8.8
Possible unintended interpolation of @a in string at pack02.pl line 6.
Possible unintended interpolation of @a in string at pack02.pl line 6.
Possible unintended interpolation of @b in string at pack02.pl line 6.
Possible unintended interpolation of @a in string at pack02.pl line 6.
Possible unintended interpolation of @d in string at pack02.pl line 6.
Global symbol "@a" requires explicit package name at pack02.pl line 6.
Global symbol "$o" requires explicit package name at pack02.pl line 6.
Global symbol "@a" requires explicit package name at pack02.pl line 6.
Global symbol "@b" requires explicit package name at pack02.pl line 6.
Global symbol "@a" requires explicit package name at pack02.pl line 6.
Global symbol "@d" requires explicit package name at pack02.pl line 6.
syntax error at pack02.pl line 11, near "my @d = map sprintf"
(Might be a runaway multi-line ss string starting on line 6)
Global symbol "@b" requires explicit package name at pack02.pl line 11
+.
Global symbol "@b" requires explicit package name at pack02.pl line 12
+.
Global symbol "$o" requires explicit package name at pack02.pl line 13
+.
Global symbol "$o" requires explicit package name at pack02.pl line 15
+.
Global symbol "@d" requires explicit package name at pack02.pl line 15
+.
Global symbol "$o" requires explicit package name at pack02.pl line 18
+.
Unmatched right curly bracket at pack02.pl line 19, at end of line
pack02.pl has too many errors.