#!/usr/local/bin/perl  -w
use Carp;
my @file;


for($N=1; $N<=22; $N++)
{
        $filename=sprintf("250.1chr%d.ped", $N);
        if(!open(FILE, "<${filename}"))
        {
                print STDERR "Couldn't open ${filename}\n";
        }
    else
    {
    my $pheno_tmp = "";
        $pheno_tmp = $filename;

        if ($pheno_tmp =~ /(.+)chr/)
        {
                $pheno_tmp = $1;
        }
    else
    {
                $pheno_tmp = "Undef";
        }
    open (IN,"/cchome/perm/pedigree/output/$filename")   ||
die "cannot open input
file $filename";
        while (<IN>)
        {
    if ($_ =~ /Testing marker:/){chomp($_); my @marker = split(/\s+/,$_); my $marker = $marker[2]; print OUT $pheno_tmp, "\t", $marker,"\t";}   $
        if ($_ =~ /probands/){chomp($_); my @pvalue = split(/\s+/,$_);
        my $Rsq = $pvalue[5]; my $pvalue = $pvalue[7]; print OUT "$Rsq\t$pvalue";print OUT "\n";}      #change the keywords;
        }
    close (IN);

}
close(FILE);
}
close (OUT);

print() on unopened filehandle OUT at getout.pl line 33, <IN> line 120086.
print() on unopened filehandle OUT at getout.pl line 33, <IN> line 120086.
print() on unopened filehandle OUT at getout.pl line 31, <IN> line 120088.
print() on unopened filehandle OUT at getout.pl line 33, <IN> line 120092.
print() on unopened filehandle OUT at getout.pl line 33, <IN> line 120092.
print() on unopened filehandle OUT at getout.pl line 31, <IN> line 120094.
print() on unopened filehandle OUT at getout.pl line 33, <IN> line 120098.
print() on unopened filehandle OUT at getout.pl line 33, <IN> line 120098.
print() on unopened filehandle OUT at getout.pl line 31, <IN> line 120100.
print() on unopened filehandle OUT at getout.pl line 33, <IN> line 120104.
print() on unopened filehandle OUT at getout.pl line 33, <IN> line 120104.