#! perl -w
use strict;

my @array1= qw(1 83 90 120 140 300);
my @array2= qw(83 140);

my %hash1=map{$_ =>1} @array2;
my @array3=grep(!defined $hash1{$_}, @array1);

print "$_\n" foreach (@array3);