foreach my $member ( .... ) { .... close(FILE); chomp @members; my $bigline = join(' ',@members); push(@allmembers,$bigline); .... } for my $longline (@allmembers) { print "$longline\n"; }