Help for this page
$VAR1 = [ '1130',
Argument "\01\01\03\00\0" isn't numeric in multiplication (*) at ./map +tobuildforums.pl line 78.
... use List::MoreUtils qw(uniq); ... etc. }