# Retrieve answerset.          
while($odbc_session->FetchRow())
   {
       # Stores the hash variable.
    eval $odbc_session->Data();
   }

##</code><code>##

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. 
   }

##</code><code>##

my @datetime = ((localtime)[0,1,2,3,4,5]);

foreach(@datetime) {
    if($count == 4) {
        $_ += 1
    }
    elsif($count == 5) {
        $_ += 1900
    }
    if(length $_ == 1) {
        $_ = "0$_";
    }
    $count++;    
}
my($sec,$min,$hour,$day,$month,$year) = @datetime;

##</code><code>##

my($sec,$min,$hour,$day,$month,$year) = map {sprintf("%02d",$_)} (localtime)[0..5];
$month++;
$year += 1900;