delete $hdr{user};
    my @hdr = ("user", keys %hdr);