title: Is this expected behavior for Perl smart match?
body: <pre><code>### Code Here ###
  
  use 5.012;
  use warnings;
  my @a = (1, 'Ah');
  
  say (@a ~~ /^1$/ ? 'TRUE' : 'FALSE');
  say ('1' ~~ @a ? 'TRUE' : 'FALSE');
  say (@a ~~ "Ah" ? 'TRUE' : 'FALSE');
  say (@a ~~ /^Ah$/ ? 'TRUE' : 'FALSE');
  
  ### STDOUT ###
  
  TRUE
  TRUE
  FALSE
  TRUE
  </code></pre>
  
  <p>Shouldn't all of these pass?</p>