$Number is overwritten at the start of the header. See line 32.

        $Number=$attr{Number};
[download]

There is never a reason not to use strict and warnings, strict, warnings.