Select Code to Download

    my @data;
    while(  <DATA>  ) {
...
        }
        $num++;
    }

    for my $byNum (  @data  ) {
        @$byNum= sort @$byNum;
    }