print $rec -> [Buick], "\n";