I'm not sure I understand what exactly you are asking for. There is pretty good documentation about column binding in the DBI documention. To wit, the documentation for bind_columns() shows an example:

$dbh->{RaiseError} = 1; # do this, or check every call for errors
$sth = $dbh->prepare(q{ SELECT region, sales FROM sales_by_region });
$sth->execute;
my ($region, $sales);

# Bind Perl variables to columns:
$rv = $sth->bind_columns(\$region, \$sales);

# you can also use Perl's \(...) syntax (see perlref docs):
#     $sth->bind_columns(\($region, $sales));

# Column binding is the most efficient way to fetch data
while ($sth->fetch) {
    print "$region: $sales\n";
}
[download]

If you keep reading the documentation for that method, they even show an example of binding to values inside a hash.