That worked, as far as getting rid of the errors. However The variables ARE defined. Here is the code:

DATA99.pm
package DATA99;
require Exporter;

our @ISA       =  ("Exporter");
our @EXPORT_OK =  qw(WasonE);

sub WasonE {
$WasonE{"time"} = "";
$WasonE{"HSname"} = "E Wason";
$WasonE{"cName"} = "E Wason";
$WasonE{"nickName"} = "";
$WasonE{"yearsHS"} = "4";
$WasonE{"gender"} = "Male";
$WasonE{"wiptabor"} = "I am an accomplished tattooer currently tattooi
+ng out of Lucky Draw Tattoo in Glendale. I plan on furthering my care
+er, getting some travelling in, and possibly getting a house with my 
+girlfriend.";
$WasonE{"online"} = "I'm on quite a bit actually. I'm currently rebuil
+ding the Lucky Draw website offline. Look for it in a few months. I'm
+ on AIM constantly, and frequent Livejournal. IM me anytime. ";
$WasonE{"yahoo"} = "";
$WasonE{"aim"} = "";
$WasonE{"msn"} = "";
$WasonE{"Last4"} = "I've been tattooing since early 2000. I almost got
+ engaged to a prior girlfriend, but that fell through. I moved to Gle
+ndale, to Tempe, and then back to Glendale when I was offered a posit
+ion at Lucky Draw. I met a nice English girl named Lee-Ann and we've 
+been dating for just over a year now.";
$WasonE{"Relationship"} = "Yes";
$WasonE{"family"} = "I hang out with my family quite a bit.";
$WasonE{"kids"} = "Not Yet";
$WasonE{"hobbies"} = "tattooing, drawing, watching movies...";
$WasonE{"School"} = "";
$WasonE{"Major"} = "";
$WasonE{"Graduation"} = "";
$WasonE{"SchoolLife"} = "";
$WasonE{"jobs"} = "see above";
$WasonE{"military"} = "";
$WasonE{"Memories"} = "lunches on the steps behind the 400 building wi
+th Brandon and everybody. Classes with Mr Nielsen.";
$WasonE{"fTeacher"} = "Mr Nielsen";
$WasonE{"Clubs"} = "";
$WasonE{"bFriend"} = "";
$WasonE{"friends"} = "";
$WasonE{"Dated"} = "nobody of significance";
@WasonE = values(%WasonE);
}

1;

[download]
WasonE.cgi 
#!/usr/bin/perl -wT

use strict;
use CGI qw(:standard);
use lib "/home/bgregory/public_html/cgi-bin";
use DATA99 qw(WasonE);

my $q = new CGI;
my %WasonE;
my $key;
my $WasonE;
my $name;
my $value;
my @WasonE;

WasonE();

print $q->header( "text/html" );

print "<html>\n<head>\n";

print <<END_OF_HEADER;

</head>

<body>

<table id="top">
<thead>
 <tr>
END_OF_HEADER

print <<END_OF_th;
 </tr>
</thead>

<tbody>
 <tr>
  <td>
   <h4 id=\"info\">Quick Info:</h4>
END_OF_th


print "<th>$WasonE{HSName}</th>\n"
    if ( defined( $WasonE{'HSname'} ) );


print <<END_OF_page;
  </td>
 </tr>
</tbody>
</table>

</body>

</html>

END_OF_page

exit;

[download]
thx

In reply to Re: Re^3: external subroutine by Anonymous Monk
in thread external subroutine by Anonymous Monk

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.