open (ADDRESS, '>> addbook.txt') or die "Can't open file; $!" ;
while (<ADDRESS>) {
  # ...