@array_one = qw(one two three four);
@array_two = qw(three four five six);

%array_one = map {$_, 1} @array_one;
@difference = grep {!$array_one {$_}} @array_two;

print "@difference\n";