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

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