my @data = <FILE>
my @new_data;

chomp @data;

while(@data) {
  push @new_data, join(' ', shift(@data), shift(@data));
}