i did not work through the logic, but if you replace

for (my $j = 0; $j < $num_of_views; $j++){
   my @array = split (", ",$global_include[$j]);
   pop @array;
   $hash{$j} = \@array;
}
[download]

with

for (my $j = 0; $j < $num_of_views; $j++){
   my @array = split (", ",$global_include[$j]);
   pop @array;
   $hash{$views[$j]} = \@array;
}
[download]

it just looks pretty good ;). and if you want to print out a data structure use the package Data::Dumper, that safes you lots of work.