title: To check if a given string start with A-Z in Perl
body: <p>I had an programming interview few days ago, I am required to write a piece of code in Perl with the functionality described in the title, after a while, I came up with the following solution:</p>
  
  <pre><code>sub startWithUppercaseLetter {
      return @_[0] =~ m/^[A-Z]/;
  }
  </code></pre>
  
  <p>The interviewer seems unhappy with this solution, can anybody give a better one? thanks</p>