($fname,$lname,$age,$dep)= unpack ($pack_rules,$DATABASE{$fname});