while (my $vals = fetchrow_hashref) {
    print "name=$vals->{'name'}, wins=$vals->{'wins'}, losses=$vals->{'losses'}\n";
    ++count;
}

##</code><code>##

use strict;

use DBI; 
use DBD::ODBC; 

my ($data_source, $database, $userid, $password) =qw( server webdb webdev webdevpass ); 

my $connect_string = "driver={SQL Server};Server=$data_source;Database=$database";    #This is effectively your DSN
my $dbh = DBI ->connect ( "DBI:ODBC:$connect_string","$userid","$password" )or die $DBI::errstr; # You need to check which version of the DBD::ODBC module you are using 

my $sql = "select name, wins, losses from teams"; 
my $sth = $dbh->prepare ( $sql ); 
$sth->execute; 
my $count = 0; 
while (my @vals = $sth->fetchrow_array ) { 
	printf "name =%s, wins =%d, losses = %d\n", $vals[0], $vals[1], $vals[2]; 
	++$count; 
} 
print "$count rows total\n"; 
$sth->finish (); 
#$data ->close (); #Don't know what this is.. probably old code..?
$dbh->disconnect (); 
exit (0);