title: Unable to pass a hash and a string to a function, together in perl!
body: <p>I am basically trying to pass a string and a hash to a subroutine in perl.</p>
  
  <pre><code>sub coru_excel {
      my(%pushed_hash, $filename) = @_;
      print Dumper(%pushed_hash);
  }
  </code></pre>
  
  <p>But it seems data is getting mixed up. The dumped data also includes the <code>$filename</code>. here is the output.</p>
  
  <pre><code>...................
  $VAR7 = 'Address';
  $VAR8 = [
            '223 VIA DE
  ................
          ];
  $VAR9 = 'data__a.xls'     &lt;----- $filename
  $VAR10 = undef;
  $VAR11 = 'DBA';
  $VAR12 = [
             'J &amp; L iNC
  ..................
           ];
  </code></pre>
  
  <p>Here is how I called the subroutine.</p>
  
  <pre><code>coru_excel(%hash, "data_".$first."_".$last.".xls");
  </code></pre>