Shell Programming and Scripting

rs1040480_XXXXX.value rs1040481_YYYYY.value rs1040482_TXXXX.value 
            0.7408157             0.3410044             0.7408157 
rs1040483_TYYYY.value rs1040481_YYYYY.value rs1040482_TXXXX.value 
            0.3410044             0.3410044             0.7408157

rs1040480_XXXXX.value 0.7408157 
rs1040481_YYYYY.value 0.3410044 
rs1040482_TXXXX.value 0.7408157  
rs1040483_TYYYY.value 0.3410044 
rs1040481_YYYYY.value 0.3410044 
rs1040482_TXXXX.value 0.7408157

awk '{print $1}' urfile |xargs -n2

rs1040480_XXXXX.value 0.7408157
rs1040483_TYYYY.value 0.3410044

awk '{if (NR%2) {split($0,a," ")} else {for (i=1;i<=NF;i++) print a[i], $i}}' urfile

$ cat urfile
a b c
1 2 3

$ awk '{if (NR%2) {split($0,a," ")} else {for (i=1;i<=NF;i++) print a[i], $i}}' urfile
a 1
b 2
c 3

#!/usr/local/bin/perl

use strict;
use warnings;

my $infile='input.dat';
my @rsarr=();
my @nrarr=();
my @tarr

open(IN,$infile) or die "Error: $!\n";
while (<IN>) {
  chomp $_;

  if ($_ =~ /^rs/) {
  @tarr = split(/ /,$_);
  push(@rsarr,@tarr); }

  else {
  s/  */ /g;
  s/^ //g;
  @tarr = split(/ /,$_);
  push(@nrarr,@tarr); }
}

close(IN);

  for my $i (0 .. $#rsarr) {
  print "$rsarr[$i] $nrarr[$i]\n"; }