sprintf is printing unexepected output

#!/usr/bin/perl

...
}

close IFH;

__DATA
0.104567556ORIG.MAXWELL.

$  ./test.pl
       foo   bar56ORIG.MAXWELL.

$  ./test.pl
        0.104567556ORIG.MAXWELL.       foo   bar

Select Code to Download