#!/usr/bin/perl -w

use strict;

my @newfile;
open (FH, "./testfile");

while (<FH>) {
  chomp;
  push @newfile, $_.' '.<FH>;
}
close FH;