my @fields = split /:/, $line;
my $linefraq = $fields[0];