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

So here is my untested re-write of your code with a few other changes - notice the connect string...

use strict;

use DBI; 
use DBD::ODBC; 

my ($data_source, $database, $userid, $password) =qw( server webdb web
+dev 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","$passw
+ord" )or die $DBI::errstr; # You need to check which version of the D
+BD::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], $v
+als[2]; 
    ++$count; 
} 
print "$count rows total\n"; 
$sth->finish (); 
#$data ->close (); #Don't know what this is.. probably old code..?
$dbh->disconnect (); 
exit (0);
[download]

HTH.