#!/usr/bin/perl

open (FH, "classdata.fdb");
while (<FH>) {
	@lines = (@lines, $_);
}
close (FH);

$pizza=0;

foreach (@lines){
@person = split(/:/,$_);
if ($person[5] = m/pizza/i){$pizza++;}
}

print "$pizza people like pizza.\n";
