Select Code to Download

#!/usr/bin/perl
use strict;
...
    say "$_->[0] : $_->[1]";
}
say "adds: $cnt_add, replacements: $cnt_replace, lines: $.";

$ perl 919076.pl 1500
ID_0762 : 897.90
...
ID_0374 : 962.16
ID_0185 : 984.86
adds: 10, replacements: 45, lines: 1500