Select Code to Download

Set 1 (@data):
g123|10249875
g948|32004040
...
g123:3|10249871
g984:2|94950595
g984:1|32004040

foreach $elem(@data){
   ($sub,$max)=split/\|/,$elem;
...
      }
   }
}

@set:
g123:1
g123:3
g984:2