my ($name, $vers, $status, $costs, *@and_the_rest) = <fh>;