open(my $fhin, '<', $genpept) or die "open '$genpept': $!";
undef $/;
my $in = <$fhin>;