Hi, I have used print statement inside the while loop to print the content of data and also used Data::Dumper.The output is as follows

data returned is HASH(0x4e9574) 
data returned is HASH(0x4e9598) 
data returned is HASH(0x4e958c) 
data returned is HASH(0x4e961c) 
data returned is HASH(0x4e95b0) 
data returned is HASH(0x4e955c) 
data returned is HASH(0x4e94fc) 
data returned is HASH(0x4e9568) 
data returned is HASH(0x4e95e0) 
data returned is HASH(0x4e96d0) 
data returned is HASH(0x22d410) 
data returned is HASH(0x4e94e4) 
data returned is HASH(0x22d350) 
data returned is HASH(0x4e9574) 
data returned is HASH(0x4e9598) 
data returned is HASH(0x4e958c) 
contents of hash is $VAR1 = {
          '' => undef,
          'foo' => 'bar'
        };
[download]

SQL> select seq_nbr,data_record from usage_inq;

SEQ_NBR DATA_RECORD
------------------ -----
               200 10
               145 10
               205 10
               450 10
              2227 10
              2386 10
               202 10
               204 10
               144 10
               472 10
              1042 10

SEQ_NBR DATA_RECORD
------------------ -----
              1261 10
               203 10
               504 10
               201 10
               503 10
16 rows selected.

SQL>
[download]