#! perl -sw
use strict;

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

my @array3 = grep{ local $"="\c1"; -1==index( "\c1@array2\c1", "\c1$_\c1") } @array1; 

print "@array3\n";

__END__
c:\test>205991
1 90 120 300