use DBI;

# Connect to the finance database on localhost
my $dsn="DBI:mysql:host=localhost;database=finance";
my $dbh = DBI->connect ($dsn, "","") or
    die "Cannot connect to server\n";
print "Connected\n";

open(outfile, ">MarketCapitalization");


my $symbolsQuery = $dbh->prepare('select symbol from SPBalanceSheet');
$symbolsQuery ->execute();
while($symbol = $symbolsQuery ->fetchrow_array()){


$queryString = "select marketCap from stcks where symbol='$symbol'";
my $marketCapQuery = $dbh->prepare($queryString);
$marketCapQuery ->execute();
while($mkap = $marketCapQuery ->fetchrow_array()){
$mcapfinal = $mkap;

}

if($lastSymbol ne $symbol){
print outfile "$mcapfinal \n";
}
$lastSymbol= $symbol;

}