sub count_instances {
my $list = shift;
my $val = shift;
$list = join ' ', @{ $list };

return $list =~ /\b$val\b/;
}