!/usr/local/bin/perl -w 

use DBI;
use CGI qw(:standard);
print header;
print start_html;

$ENV {'ORACLE_HOME'}= '/oracle/u01';

$host="????";
$sid="???";
$username="???";
$password="???";
my $year = 2001;
my $sport = 'basketball';
my $dbh = DBI->connect( "dbi:Oracle:host=$host;sid=$sid",$username, $password)|| die "Can't connect to Oracle";
$sth5 = $dbh->prepare("SELECT round,department,score FROM  trees WHERE  sport = \'$sport\' AND year = \'$year\' ORDER BY round DESC")|| die "couldn't  prepareSQL statement";
$sth5->execute || die "can't execute sql statement";

$rowcount = 0;
while (@row = $sth5->fetchrow_array()) {
  $round = $row[0];
  $teamname = $row[1];          
  $Score    = $row[2];          

push @list_of_teamdata, qw("$round $teamname $score");
  $rowcount++;

}
 i want to be able to reference each element like the folowing

<code>

$list_of_teamdata [0][1];


##</code><code>##

 
$round $teamname $score