#!/usr/bin/perl -w
use strict;
use warnings;

open(GRP,'grupid.txt');
my @grupid=<GRP>;
open (IN,"<",$ARGV[0]);

foreach my $kood (@grupid)
	{

	chomp $kood;
	print "opened $kood\n";
	open(TEMP,">","$kood.out");
	while (my $line = <IN>)
		{
#		print ".";
		my$nextline=<>;
#		print ".";
		if ($line =~ /$kood/)
			{
			
			print TEMP "$line$nextline";
			}
		}
	close(TEMP);
	print "closed $kood\n";
	seek(IN,0,0);
	print "rewound\n";
	}
close(GRP);
close(IN);