Select Code to Download

use Modern::Perl;
use DBI;

...
    say
"id: $row->{'id'}, Count: $row->{'number'}, Score tumor: $row->{'tumor
+score'}, Score normal: $row->{'normalscore'}, Difference: $row->{'dif
+ference'}, Average Difference: $row->{'averagedifference'}";
}

id: cg00381604, Count: 3, Score tumor: 99, Score normal: 174, Differen
+ce: -75, Average Difference: -25
id: cg03130891, Count: 1, Score tumor: 55, Score normal: 84, Differenc
+e: -29, Average Difference: -29
id: cg12045430, Count: 3, Score tumor: 129, Score normal: 174, Differe
+nce: -45, Average Difference: -15
...
id: cg20253340, Count: 1, Score tumor: 560, Score normal: 593, Differe
+nce: -33, Average Difference: -33
id: cg20826792, Count: 3, Score tumor: 171, Score normal: 174, Differe
+nce: -3, Average Difference: -1
id: cg21870274, Count: 1, Score tumor: 791, Score normal: 809, Differe
+nce: -18, Average Difference: -18