Select Code to Download

use strict;
use Data::Dump qw/dump/;
...
728481    1    353    1361
154664    7    440    449688
154664    7    440    563

{
  154664 => {  7 => { max => 449688, min => 440 } },
...
  256158 => {  9 => { max =>  86450, min => 329 } },
  728481 => {  1 => { max =>   1361, min => 353 } },
}