sub count_instances {
my $list = join ' ', shift();
my $val = shift;

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

##</code><code>##

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

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