if(ref($data) eq 'ARRAY')
{
  #...
}
else{ die "ERROR $data"; }