I need some help with Perl, as it doesn't seem to want to work correctly. I'm trying to get it to determine how many spaces to place, based on a value of a variable.

The code is here: http://perl.atomic7732.pastebin.com/8xkvFkLq