DB<102> $var_ref_array = [
  [5349, 5350, 6205],
  [5355, 5356, 1777741, 1777742],
  [5699, 1792850, 1792851],
]

  DB<103> for my $a1 (@$var_ref_array) {
             for my $a2 (@$a1) {
                print "$a2\t";
             }
             print "\n";
          }
5349    5350    6205    
5355    5356    1777741    1777742    
5699    1792850    1792851
[download]

if you need indeces you can still manually increment something like $i and $j.

There should also be an each ARRAY solution to get index and value simultaneously but my Perl is too old. :)