my @fields;
while (my $pimrpt = <PM>) {
	my ($systime,$company, $company_prev, ... );
	... etc