Help for this page

Select Code to Download

Select or download this

open(INFO, "data2.txt"); # Open db for reading
    @array=<INFO>;
    close (INFO);
    @ascend=sort(@array);

Select or download this

    my $data =    qq{
    open(INFO, "data2.txt"); # Open db for reading
    @array=<INFO>;
...
    }
    </table>
    };