use Socket qw(inet_aton);

my $start = inet_aton('192.168.1.0');
my $end   = inet_aton('192.168.1.255');

my @ips_in_range = grep { my $n = inet_aton($_); $n ge $start and $n le $end } @ips;