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

##</code><code>##

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