# **************************************************************

# This function check if the reference is an ARRAY.

#

#  @see: http://affy.blogspot.com/p5be/ch08.htm

#  @example: print "ERROR: A ARRAY is needed\n" if ( !is_array(\@$array) );

sub is_array {

my $ref = shift;

return 0 unless ref $ref;

if ( ref($ref) eq "ARRAY" ) { return 1; } else { return 0; }

}