$tmp = join('',@a);
print if /^[$tmp]{3}$/;