for my $dataratio(@full_data){
for my $six ( 3 .. $columns ){
        for my $tre ( 3 .. $rows ){
            for my $tri ( 3 .. $rows ){
}
}
}