$sql = $filehandle->prepare($script) || die "Couldn't prepare SQL: " . $filehandle->errstr; $sql->execute() || die "Couldn't prepare SQL: " . $filehandle->errstr; while (my $row = $sql->fetchrow_hashref) { my %row_data; $row_data{TEAM} = $row->{'Team'}; push(@table, \%row_data); } $sql->finish();