When I've done this sort of thing in the past, I've used a sub to generate the escape sequences:

sub at{ sprintf "\e[%d;%dH", $_[0], $_[1] }.

Then you can use something like print at( $_*2, $_ ), 'here' for 1..50;