OS,RELEASE,LIKE
Ubuntu,Warty,No
Ubuntu,Hoary,No
Ubuntu,Breezy,Yes
Ubuntu,Breazy,Yes
Fedora,Yarrow,Yes
Fedora,Stentz,No
Fedora,Yarrow,Yes
Fedora,Yarrow,Yes
Windows,XP PRO,Yes
Windows,XP PRO,Yes
Windows,XP Home,No
Windows,XP PRO,Yes

##</code><code>##

OS,RELEASE,Yes,No
Ubuntu,Warty,0,1
Ubuntu,Hoary,0,1
Ubuntu,Breezy,2,0
Fedora,Yarrow,3,0
Fedora,Stentz,0,1
Windows,XP PRO,3,0
Windows,XP Home,0,1

##</code><code>##

#!/usr/bin/perl -w

use strict;
use Data::Dumper;
use DBI;

my @os;
my %duplicate;
my %hash1;

my $dbh = DBI->connect ("dbi:CSV:") or die "Cannot connect to the CSV file: $DBI::errstr()";
$dbh->{RaiseError} = 1;
$dbh->{TraceLevel} = 0;

my $table = "test.csv";

my $query = "select OS from $table";
my $sth = $dbh->prepare ($query);
$sth->execute();

while ( my $row_ref = $sth->fetch )
{
    (my $os = $row_ref->[0]);
    push (@os, $os) unless $duplicate{$os}++ ;
}

foreach my $operating_system (@os) 
{
    my @array;
    my $query = "select RELEASE from $table where OS = ?";
    my $sth = $dbh->prepare ($query);
    $sth->execute($operating_system);
    while (my $ref = $sth->fetch )
    {
        my $var = $ref->[0];
        push (@array, $var) unless $duplicate{$var}++ ;  ### removing the duplicate release names
    }
    $hash1{$operating_system} = \@array;   
}

my @new;

foreach my $operating_system (@os) 
{ 
     foreach my $arr_ref ($hash1{$operating_system})
     {
         my $arr_index = @{$hash1{$operating_system}}-1; 
         for (0..$arr_index)
         {
            my $release = $hash1{$operating_system}->[$_];
            my $query = "select LIKE from $table where OS = ? and RELEASE = ?";
            my $sth = $dbh->prepare ($query);
            $sth->execute ($operating_system, $release);
            while ( my $row_ref = $sth->fetch )
            {
               push (@new, $release.",".$hash{$row_ref->[0]}); 
            }
            $sth->finish ();
         }
     }
}

#############  >>>> from here below I need to figure out the unique entries and count the times it were repeated and push it to report.csv

foreach my $var (@new)
{
  my $count = 0;
  if ( ! $duplicate{$var}++ )
  {
      print $var.$count."\n";
  }
}
$sth->finish();
$dbh->disconnect()