my $linefraq = (split /:/, $line)[0];