print $ID, $firstname $middlename $lastname\n;
    print $dept, $address, $phone\n;