use strict;
use warnings;

sub sortList{
        
        my @temp ;
        my (@list) = @_;

        my $j;
        my $count = 0;
        for (my $i =0; $i< 38; $i += 1){
                for ( $j=0; $j<38; $j+= 1){

                    push (@{$temp[$i]}, $list[$count]);
                        $count += 1;

                }

        }
        return  @temp;
}