my @lines;
my $quit = 0;
...
until ($quit ) {
  ...
  push( @lines, ... );
  $quit = ( $ans =~ /^n/i );
}
foreach (@lines) {
  ...
  write ADDRESS;
}