Select Code to Download

#!/usr/bin/env perl
use strict;
...

    @last_array = @new_array;
}

Gen  R1.1  R1.2  R1.3  R1.4    R2  ->   Trk1  Trk2  Trk3  Trk4
  1    17     1    20    12  None  ->     17     1    20    12
  2    13    24    21           4  ->     21    13    24      
  3    19    30    31    27     6  ->     27    19    30    31
  4    22    34                 3  ->           22          34