# ...

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

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