All you need to do is increment the number for the row you want to copy to.

my $Formula = $Sheet->Range("A499")->{Formula};

# The next 10 rows
print "=MAX(B$_:AR$_)" for 500..510;
[download]

Obviously, you'd change the print statement into whatever method you need to invoke to paste your formula.