#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;