my @finolis = ack( qw[ --perl --match \bVERSION\b\s*=(.*?)$ ] ); for my $finoli ( @finolis ){ my( $file, $nolis ) = @$finoli; for my $noli ( @$nolis ){ my( $number, $line ) = @$noli; } }