foreach and faster problem

I use the script below to build a small database of 100 records.
Then they are read out again and each record will be checked if
a value of the array @words is present, if so the
record will be printed.

The problem is that the 'foreach $x (@words){' line doesn't go through
each character/word of @words. I tried it with the parameter sentence 'hello,0,c'.
When I trie to print out the $x value it gives me the value 0 instead of the
current value of @words.

- How can I fix this problem ?

- Also I must make this script faster (the part between the stopwatch lines)
  So I hope someone can alter this script to produce faster output.



#!/usr/bin/perl
use CGI;
use DB_File ;
$q=new CGI;
print "Content-type: text/html\n\n";
$sentence=$q->param('sentence');
@words=split(",",$sentence);

unlink "fruit" ;
tie %h, "DB_File", "fruit", O_RDWR|O_CREAT, 0666, $DB_HASH or die "Cannot open file 'fruit': $!\n";
for ($xx=1; $xx<100; $xx++){
    $h{$xx} = 'CIS100@é@01@é@Intro@é@to Computing@é@8';
}untie %h ;


$stopwatch_aan=(times)[0];
tie %h, "DB_File", "fruit", O_RDWR|O_CREAT, 0666, $DB_HASH or die "Cannot open file 'fruit': $!\n";
while (($h,$line)=each %h){
@line=split('@é@',$line);

foreach $x (@words){
if (grep /$x/,@line){
($Course,$Section,$Title,$Tiles)=split('@é@',$line);
print qq{Record=$h<br>Course=$Course<br>Section=$Section<br>Title=$Title<br>Tiles=$Tiles<br>$x<br><br>};
}}

}
$stopwatch_uit=(times)[0];

print qq{<hr>};
printf "search time: %.8f seconds\n",$stopwatch_uit-$stopwatch_aan;