my $curimage;

while (my $line = <DATA>) {
    $line =~ /^([^:]*): (.*?)$/m or next;
    my ($key, $value) = (lc $1, $2);
    $curimage = $value if ($key eq "image");
    next if(!exists $db->{$curimage});
    # ..process key-value pairs
}