open(my $fh, '>', 'my_txt_output.txt')
            or die("Can't create my_txt_output.txt: $!\n");
        $pop->HeadAndBodyToFile( $fh, $i );