open (DB, "<$db_file_name") or &cgierr("unable to open $db_file_name. Reason: $!");
@lines = <DB>;
close DB;

$fieldnum = 6; change this to match your Year_Graduated field number

foreach $line (@lines) {
@data = &split_decode($line);
++$count{$data[$fieldnum]};
}

$i = 1;
foreach $gyear (sort {$count{$b} <=> $count{$a} } keys %count) {
if ($i>5) { last; }
print "$gyear: ($count{$gyear})<BR>";
++$i;
}

print &build_select_field_from_db("fieldname",$rec{'fieldname'});

# list all the words you don't want to include in the line below
@not_included = qw(a the an and with all);

# remove all puncutation
$text =~ s/[,!"]//g;

# change the text to lower case
$text = lc($text);

# put all the words into an array
@words = split(/ /,$text);

# put unique words into a master array, ignoring those that are not included
foreach $word (@words) {
if (!(grep $_ eq $word, @not_included)) {
if (!(grep $_ eq $word, @summary)) {
push (@summary, $word);
}
}
}

sub build_select_field_from_words {
#-------------------------------

my ($column, $value) = @_;

for ($i = 0; $i <= $#db_cols; $i++) {
if ($column eq $db_cols[$i]) {
$fieldnum = $i; $found = 1;
last;
}
}

if (!$found) {
return "error building select field: no fields specified!";
}

open (DB, "<$db_file_name") or &cgierr("unable to open $db_file_name. Reason: $!");
if ($db_use_flock) { flock(DB, 1); }
LINE: while (<DB> ) {
next if /^#/;
next if /^\s*$/;
$line = $_;
chomp ($line);
@fields = &split_decode ($line);
$text = $fields[$fieldnum];

@not_included = qw(a the an and with all);
$text =~ s/[,!"]//g;
$text = lc($text);
@words = split(/ /,$text);
foreach $word (@words) {
if (!(grep $_ eq $word, @not_included)) {
if (!(grep $_ eq $word, @summary)) {
push (@summary, $word);
}
}
}
}

close DB;

$output = qq|<SELECT NAME="$name"><OPTION>---|;
foreach $field (sort @summary) {
($field eq $value) ?
($output .= "<OPTION SELECTED>$field") :
($output .= "<OPTION>$field");
}
$output .= "</SELECT>";

return $output;
}

print &build_select_field_from_words("fieldname",$rec{'fieldname'});