$i = 0;
for my $rec_ref(@records) {
	$new_rec = join('', $rec_ref->[0], $rec_ref->[1], $rec_ref->[2]);
	push(@new_records, $new_rec);
}
open(PASSF,">$ENV{HOME}/.perlpasswd") or die "Can't write $ENV{HOME}/.perlpasswd: $!\n";
for $i (0 .. $#new_rocords) {
	print PASSF $new_records[$i]^substr($newenckey,0,length($new_records[$i]));
}
close(PASSF);