I have an address book program I am writing in Perl. Someday it will write to a database program but for the moment it writes to a .txt file.

It will not accept more than one pass of information, only the last information entered will be written. While I "sort of" understand this I don't know what to do about this. Further I don't know where to look to fix it. Here is an abbrieviated version of the current code. 
#! /usr/local/bin/perl -w
use strict ;

#Adress Book Program


print "Address Book Program v .03\n\n" ;

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

my ($cat, $fname, $lname, $cname, $addr1, $addr2, $field, $value) ;

my $quit = 0 ; 

while ($quit != 1) {

    print "Is this a Personal or Business contact? (Enter P or B)" ;
    my $perbus = <STDIN> ; 
    chomp $perbus ;

    if ($perbus eq 'b'){
    $cat = "Business" ;
    } else {
    $cat = "Personal" ;
    }

    print "Enter a first name:  " ;
    $fname = <STDIN> ;
    chomp $fname ;

    print "Enter a last name:  " ;
    $lname = <STDIN> ;
    chomp $lname ;
    
    print "Enter address information:  " ;
    $addr1 = <STDIN> ;
    chomp $addr1 ;

    print "Enter address information:  " ;
    $addr2 = <STDIN> ;
    chomp $addr2 ;

    print "Do you want to enter another address? (Y or N)  " ;
    my $ans = <STDIN> ;
    chomp $ans ;

#checks for Y or y

    if ($ans !~ m/[Yy]/) {
    $quit = 1 ;
    } else {
    $quit = 0 ;
    }
    
}

my @lines = (
         [ "NAME", "$lname, $fname" ],
         [ "ADDRESS", $addr1        ],
         [ "ADRESSS", $addr2        ],

for (@lines) {
        ($field, $value) = @$_ ;
        write ADDRESS ;
}
close ADDRESS or die "Can't close file; $!" ;

format ADDRESS_TOP =
AddressBook version 0.03
___________________     ______________________________________________
+________
.

format ADDRESS =
@<<<<<<<<<<<<<<<<<<     @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+<<<<<<<<
$field,            $value
.

[download]
So what is wrong? Where/how should I look to fix this?
--
ellem@optonline.net
There's more than one way to do it, but only some of them actually work.

Edit kudra, 2002-05-07 Changed title

In reply to Program only writes last information entered (was Writing and writing and writing) by ellem

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.