my ($a, $b, $c) = (split /;/, $line)[0,1,7];