title: Simplest way to match array of strings to search in perl?
body: <p>What I want to do is check an array of strings against my search string and get the corresponding key so I can store it. Is there a magical way of doing this with Perl, or am I doomed to using a loop? If so, what is the most efficient way to do this?</p>
  
  <p>I'm relatively new to Perl (I've only written 2 other scripts), so I don't know a lot of the magic yet, just that Perl is magic =D</p>
  
  <pre><code>Reference Array: (1 = 'Canon', 2 = 'HP', 3 = 'Sony')
  Search String: Sony's Cyber-shot DSC-S600
  End Result: 3
  </code></pre>