open(FILE, "./logfile.sql"); my %foo; while () { my $index; if (m/Field0=(.*)\;/) { $index = $1; } else { # something didn't match correctly $index =""; } $foo{$index}++; if ($foo{$index} == 1) { # make insert statment } else { # make update statement. } }