Hi all, I had to implement a co-relation problem in perl. I have two arrays i.e. array1 and array2 which contain following values.

array1    array2
read      book
eat       apple
book      novel
apple     banana
play      football
tennis    football
novel     mazagine
[download]

I want my output as:

array1    array2      array3    array4
read      book        novel     magazine
eat       apple       banana
play      football    tennis
[download]

i tried implementing it with simple for loops as:

for($i=0;$i<$arraylength;$i++)
{
    for($j=0;$j<$arraylength;$j++)
    {
        if($array2[$i]== $array1[$j])
        {
            $array3[$i] = $array2[$j];
        }
            }
}

for($i=0;$i<$arraylength;$i++)
{
    for($j=1;$j<$arraylength;$j++)
    {
        if($array2[$i]== $array2[$j])
        {
            $array3[$i] = $array1[$j];
        }
    }
}

for($i=0;$i<$arraylength;$i++)
{
    for($j=0;$j<$arraylength;$j++)
    {
        if($array2[$i]== $array1[$j])
        {
            $array4[$i] = $array3[$j];
        }
            }
}
[download]

But it was not showing the proper output. It was shows some random output in array3 and array4. Then a perl monk gave me a suggestion how to implemet and which works.The code is:

#!perl
use strict;
use warnings;

my @array1 = qw(read eat   book  apple  play     football novel);
my @array2 = qw(book apple novel banana football tennis   magazine);

# The follows relationship
my %follow;
@follow{@array1} = @array2;

# Keeping track of what followers I have already used
my %h2 = map {$_=>1} @array2;

# Start with things that are not followers
my @out = ([grep !exists $h2{$_}, @array1]);

# Put followers of the previous column on as a new column
while (%h2) {
  push @out, [@follow{@{$out[-1]}}];
  delete @h2{@{$out[-1]}};
}

use Data::Dumper;
print Dumper(\@out);

END {
  use Data::Dumper;
  print Dumper(\@out);
}
[download]

But the problem is I have to insert each column value into each of mysql column.i.e. as follows:

read eat play in Column1 of the table in mysql
book apple book in Column2 of the table in mysql
novel banana tennis in Column3 of the table in mysql
magazine in Column4 of the table in mysql
[download]

I tried implementing this by

#my $insert= $dbh->prepare("INSERT INTO Table values (?,?,?,?)");
my $san=0;
my @array1 = qw(read eat   book  apple  play     football novel);
my @array2 = qw(book apple novel banana football tennis   magazine);

# The follows relationship
my %follow;
@follow{@array1} = @array2;

# Keeping track of what followers I have already used
my %h2 = map {$_=>1} @array2;

# Start with things that are not followers
my @out = ([grep !exists $h2{$_}, @array1]);

# Put followers of the previous column on as a new column
while (%h2) {
  push @out, [@follow{@{$out[-1]}}];
  delete @h2{@{$out[-1]}};
}

use Data::Dumper;
print Dumper(\@out);
$insert->execute($out[0],$out[1],$out[2],$out[3])
END {
  use Data::Dumper;
  print Dumper(\@out);
print "@out[1]";
}
$insert->finish();
$dbh->disconnect or warn $dbh->errstr;
[download]

But it doesnt shoe the proper output. Infact some some value like

ARRAY(0x832d990)
ARRAY(0x832d9xx)
ARRAY(0x832d943)
[download]

Please guide me.. Thanking you