#!/usr/bin/perl

use strict;
use warnings;

open(PASS,'/etc/passwd') || die 'Nie potrafię otworzyć /etc/passwd';
open(LIST2,"liscik") || die 'bo nie';
my @list2 = <LIST2>;
close(LIST2);

my $i=1;
my %tab;
while(<PASS>) {
        my ($lid,$pp,$uid,$gid,$fname,$home,$shell)=split(":");
        $tab{"NAZWISKO"}=$fname;

        if ($fname eq "" || $uid < 1000) {
        }
        else {
                open(LIST,">list".$i) || die 'Nie potrafię otworzyć pliku list';
		
		for my $linia (@list2)
		{
                   if($linia =~ /@([A-Z]+)@/) {
                     print LIST $`,$tab{$1},$';
		   }
                   else {
                     print LIST $linia;
                   }  
		}
                close(LIST);
                if ($i<20) {
                	$i=$i+1;
                } else {
			last;
		}
        }

}
close(PASS);