Select Code to Download

%one;
%tow;
...
         push @{$one{$r[0]}}, [ @line[1..$#r] ];
         push @{$tow{$r[1]}}, [ @line[2..$#r] ];
         }