my @array;
while ( my $line = <STDIN> ) {
    chomp $line;
    push @array, $line;
}
#.... later on...
foreach ( @array ) {
    print "$_\t";
}