#!/usr/bin/env perl
use strict;
use warnings;

use File::Grep qw(fgrep);
use Data::Dumper;

my @line = map { chomp $_ for values %{$_->{matches}}; $_ } fgrep { /^[2-6] .+$/ } *DATA;
print Dumper(\@line);

__DATA__
2 foo
3 bar
4 baz
5 qux
6 quux
7 thingy
8 widget

##</code><code>##

$VAR1 = [
          {
            'count' => 5,
            'matches' => {
                           '3' => '4 baz',
                           '4' => '5 qux',
                           '1' => '2 foo',
                           '5' => '6 quux',
                           '2' => '3 bar'
                         },
            'filename' => *::DATA
          }
        ];