my @fields = split /:/, $record;