On Mon, Feb 6, 2012 at 8:35 PM, lina <lina.lastn...@gmail.com> wrote:

> until ($name eq "");
> do {
>        print "Enter another name, or Enter to stop:\n" ;
>        $name = <STDIN>;
>        chomp ($name);
>        push @namelist,$name;
>
> }
>
> print @namelist
>

This should work. Also start using strict and warnings pragma.

do {
       print "Enter another name, or Enter to stop:\n" ;
       $name = <STDIN>;
       chomp ($name);
       push @namelist,$name;

}until ($name eq "");

print @namelist

Reply via email to