open(READ,"; my $a = join( " ", @e );