You could have a look at Term::ANSIScreen or Curses, assuming that you are working with terminals. Every time you do a screen update in your code, just jump to the positions at the bottom of the screen, and print whatever.

use Term::ANSIScreen qw/:color :cursor :screen/;
...

my %vals = (
  Number1 => { X => 1, Y => 20, Width => 10 },
  Number2 => { X => 11, Y => 20, Width => 10 },
  ...
);

sub SetValue
{
   my ($name, $val) = @_;
   locate $vals{$name}{X}, $vals{$name}{Y};
   print $val, ' ' x $vals{$name}{Width} - length($val);
   # or
   # printf "%-$vals{$name}{Width}s", $val;
}

...

for (0..10) {
  SetValue(Number1, 100 + $_);
  SetValue(Number2, 200 + $_);
  sleep(1);
}
...
[download]