#!perl -w
use strict;
use DBI;

my $D=DBI->connect("DBI:SQLite2:dbname=Store.db","","");

$D->do("CREATE TABLE ISP(Store INTEGER,Date CHAR[9])");
$D->do("CREATE TABLE UnityPrimary(Store INTEGER,Date CHAR[9])");
$D->do("CREATE TABLE UnitySecondary(Store INTEGER,Date CHAR[9])");

open(CSV,"reboots.csv")||die"Can't open: $!\n";

while(<CSV>){
  chomp;
  my($store,$isp,$pri,$sec)=split /,/;
  
  my $sta=$dbh->prepare("INSERT INTO ISP(Store,Date) VALUES($store,$isp)");
  my $stb=$dbh->prepare("INSERT INTO UnityPrimary(Store,Date) VALUES($store,$pri)"); 
  my $stc=$dbh->prepare("INSERT INTO UnitySecondary(Store,Date) VALUES($store,$sec)");
  
  $sta->execute;
  $stb->execute;
  $stc->execute;
}
close CSV;

my $sth=$dbh->prepare("SELECT * FROM UnityPrimary WHERE Store=1");
$s->execute;

while(my@row=$s->fetchrow_array){ print "@row\n"; }

$D->disconnect;