sub pretty_print_array {
	my ( $title, @array) = @_;
	my $numb = $#array +1;
 
	print "Array : $title ($numb entries)\n";
	for $line (@array)
	{
		print "\t'$line'\n";
	}
	print "=========================\n\n";
}