#! /usr/bin/perl -w
  use strict;

  my @array1 = (1,2,214,215,216,217,218,219,220,221);
  my @array2 = (214,215,216,217,218,219);

  my %hash2 = map {$_ => undef} @array2;
  for (@array1)
  {
    print $_, "\n" if exists $hash2{$_};
  }