@positions = qw/5 15/;

while (1) {
    for (@positions) {
        move($_, CONSTANT);
        addstr($Counter);
        $Counter++;
    }
}