title: perl: function that gives nonzero integers between 1 and $input
body: <p>Im looking for (how to make?) a function (module?) that for</p>
  
  <pre><code> my $scalar = 16;
   return function ($scalar);
  </code></pre>
  
  <p>gives</p>
  
  <pre><code> @return = ( 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16 );
  </code></pre>
  
  <p>That is, gives the non-zero integers between 1 and $scalar.</p>
  
  <p>It's ok to assume $scalar is a big number, but im not particularly searching for a super optimal solution.</p>