while($odbc_session->FetchRow())
   {
       # Stores the hash variable.
    my %pmsr = $odbc_session->DataHash();
##  push @pmsr, \%pmsr; # Pushes each value in the DWH_PrfMsr column into the @pmsr.
    push @pmsr, {%pmsr}; # Pushes an anon.hash-ref copy of %pmsr onto  @pmsr. 
   }