#!/usr/bin/env perl
use Modern::Perl;

my @a = qw/ foo bar baz /;
my @b = qw/ foo bar biz /;

my %b = map { $_ => 1 } @b;

for (@a){
    say unless $b{$_};
}