Here is the code and variables:

$stmnt = :"select acct_nbr,cycle_cd,cycle_end_dt from usage_rcvd" ;
$sth = dbh->prepare($stmt);

while ($sth->fetch())
{
bind_col(1,$acct_nbr);
bind_col(2,$cyc_cd);
bind_col(3,$cyc_end);

here I need to store them in hash array:
key is $acct_nbr
values are $cyc_cd and $cyc_end


}

[download]

Doesn't look very much like valid perl, sorry, all I can suggest for you is perlintro

See DBI recipes

Something like this?:

use warnings;
use strict;
use Data::Dumper;

my %family_hash;

while (<DATA>) {
    my ( $key, @values ) = split /\s/, $_;
    push @{ $family_hash{$key} }, @values;
}

print Dumper \%family_hash;

__DATA__
father male 65 Engineer
mother female 60 home_engineering
son male 28 musician
daughter female 19 software_engineer 
[download]

$VAR1 = {
          'son' => [
                     'male',
                     '28',
                     'musician'
                   ],
          'daughter' => [
                          'female',
                          '19',
                          'software_engineer'
                        ],
          'father' => [
                        'male',
                        '65',
                        'Engineer'
                      ],
          'mother' => [
                        'female',
                        '60',
                        'home_engineering'
                      ]
        };

[download]

    push @{ $family_hash{$key} }, @values;

I prefer

    $family_hash{$key} = [@values];
[download]

Bill

Yes - that looks cleaner, but it is not the equivalent.

Your code overwrites the contents of $family_hash{$key} while the OP's appends.
So, if the $key appears more than once in the input data sequence, all but the last will be clobbered by your code.

             "By three methods we may learn wisdom: First, by reflection, which is noblest; Second, by imitation, which is easiest; and third by experience, which is the bitterest."           -Confucius