print PC "$id|";
foreach $userdirective(@userdirectiveslist){
        $hashref=$instdetails{$instnum}{$userdirective};
        foreach $key(keys %$hashref){
                print PC "$key"; ## last key value
        }
        print PC ',';
}