# Unordered
my %diff; @diff{ @insttab } = ();
delete @diff{ @inst };
my @diff = keys %diff;

##</code><code>##

# Ordered
my %in_inst; @in_inst{ @inst } = ();
my @diff = grep { !exists($in_inst{$_}) } @insttab;