use strict;

sub CreateConfig{
    my ($file,@data) = @_;
    $file = $file.".new";
    local *NFILE;
    open(NFILE,">$file") or die "Couldn't create '$file': $!";
    foreach my $item (@data){
        print NFILE "$item\n";
    };
    close(NFILE);
}

CreateConfig('test.cfg','passwd chat = *New*UNIX*password* %n\n *ReType*new*UNIX*password* %n\n *passwd:*all*authentication*tokens*updated*successfully*');