$Formula1= $Sheet->Range('A499')->{Formula};
$new_row = 500;
$Formula1 =~ s/\d+/$new_row/g;
$Sheet->Range('A'.$new_row)->{Formula} = $Formula1;