sub compare_arrays
{
  my ($first, $second) = @_;
  my @tmp;
  for my $elm (@$first) 
  {
    if(defined($elm) && grep{defined($_) && $elm eq $_}@$second)
    {
      push(@tmp,$elm);
    }
  }
  return @tmp;
}