sub write
{
    my ($contestant) = @_;
    print "$contestant->{'nazwisko'} ";
    print "$contestant->{'imie'}";
    print ":$contestant->{'id'}\n";
}