Select Code to Download

use strict;
use warnings;
...
        print "\n";
    }
}

$arr[$i] = [reverse @{$arr[$i]}];

@{$arr[$i]} = reverse @{$arr[$i]};