Select Code to Download

METHOD    0TM    1TM    2TM    >2TM
method1    3    68    18    10
...
method15    6    69    20    5
method16    5    80    11    3
method17    1    68    17    14

@x = qw(method1 method2 method3 method4 method5 method6 method7 method
+8 method9 method10 method11 method12 method13 method14 method15 metho
+d16 method17); 
@y1 = (3, 3, 3, 5, 6, 14, 12, 9, 13, 5, 9, 5, 6, 11, 6, 5, 1); 
@y2 = (68, 80, 87, 83, 75, 77, 82, 84, 68, 65, 64, 68, 82, 79, 69, 80,
+ 68); 
@y3 = (18, 10, 9, 9, 15, 6, 2, 3, 16, 20, 20, 18, 9, 8, 20, 11, 17); 
@y4 = (10, 6, 1, 3, 4, 3, 3, 3, 3, 9, 7, 9, 2, 2, 5, 3, 14);

open IN, "$infile" or die $!; 
@lines = <IN>;
...
}
unshift @AoA, [ @methods ];