# ...

$sth->bind_columns( undef,\$alias);
my $key = 0;
while($sth->fetchrow_array()) {

    if ( $key  ) {
        print "$key, $alias\n";
        $key = 0;
    }
    else{
        $key = $alias;
    }
}

##</code><code>##


$sth->bind_columns( undef,\$alias);
my %hash;
my $key = 0;
while($sth->fetchrow_array()) {

    if ( $key  ) {
        $hash{ $key } = $alias;
        # print "$key, $alias\n";
        $key = 0;
    }
    else{
        $key = $alias;
    }
}