Select Code to Download

create table friends (
     friend_id            numeric(8)                      identity,
...
go
create   index i_hair_color on friends (hair_color ASC)
go

my $connstr="dbi::SomeDB";
my $dbh=DBI->connect($connstr,$user,$password) or
...
          hair_color="brown"
SQL
print join"\n",map { join ",",@$_ } @$array;