Select Code to Download

use strict;
use warnings;
...

   $last_ele_idx = $rec[2];
}

1,1,22,2,2
1,23,45,2,2
...
2,13,34,4,3
2,35,44,2,2
2,45,56,1,3