I'm using these statements in my main program: use DisplayPCE qw($order $fnx );
... print join("", map { qq[<td>$_</td>] } @{$DisplayPCE::order}); ... When I use the debugger, I find that order is undefined! When I use the browser to view the page, the value of undef is confirmed. When I abandon packages and put the definition of order in the main program, it works! Can anyone help me understand why my package is not working? Siegfried Here is the contents DisplayPCE.pm: package DisplayPCE; our @EXPORT = qw($order ); my $order = ["First Name", "Last Name", "E-Mail", "User Name", "Address", "City", "State", "Zip Code", "Country", "Phone", "Org.", "Gender", "Ethnicity", "Age", "Religious Affiliation" ]; 1; __________________________________ Do you Yahoo!? Yahoo! Photos: High-quality 4x6 digital prints for 25¢ http://photos.yahoo.com/ph/print_splash -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>