Fix PbsmonJson gen script

 - problem with getting keys from scalar reference on hash (for older
   version of perl)
 - need to use derefenrencing from scalar to hash ( %{} )