title: Return array from subroutine
body: <p>I am attempting to return data from an array. Code is below:</p>
  
  <pre><code>my %ignorables = map { $_ =&gt; 1 } qw([notice mpmstats: rdy bsy rd wr ka log dns cls bsy: in);
  
  open my $error_fh, '&lt;', 'iset_error_log';
  
  sub findLines {
  
      # Iterates over the lines in the file, putting each into $_
      while (&lt;$error_fh&gt;) {
  
          # Only worry about the lines containing [notice
          if (/\[notice/) {
  
              if (/\brdy\b/){
                  print "\n";
              }
              else {
                  print ",";
              }
  
              # Split the line into fields, separated by spaces, skip the %ignorables
              my @line = grep { not defined $ignorables{$_} } split /\s+/;
  
              # More cleanup
              s/|^\[|notice|[]]//g for @line; # remove [ from [foo
  
              # Output the line
              @line = join(",", @line);
              s/,,/,/g for @line;
              print @line;
              }
          }
      }
  
  &amp;findLines;
  </code></pre>
  
  <p>When I print, output is as follows:</p>
  
  <pre><code>Mon,Jun,25,23:24:43,2012,999,1,0,1,0,0,0,0,Mon,Jun,25,23:24:43,2012,1,mod_was_ap22_http.c
  Mon,Jun,25,23:32:44,2012,999,1,0,1,0,0,0,0,Mon,Jun,25,23:32:44,2012,1,mod_was_ap22_http.c
  Mon,Jun,25,23:33:44,2012,999,1,0,1,0,0,0,0,Mon,Jun,25,23:33:44,2012,1,mod_was_ap22_http.c
  Mon,Jun,25,23:45:44,2012,999,1,0,1,0,0,0,0,Mon,Jun,25,23:45:44,2012,1,mod_was_ap22_http.c
  </code></pre>
  
  <p>How do I return the array outside the subroutine?</p>