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

##</code><code>##

my $favoriteCar = $rec->{LOOKUP}[0];
print "My favorite car is ", $favoriteCar, "\n";