#!/usr/bin/perl
#w3.2.pl while statement

@people = (Jim, Floyd, Fred, Jane, Marta, Jill, Sam, Joe, Alice, Andrea);

while (@people) {
    $person = pop(@people);
    print("$person\n");
}


__END__

