Select Code to Download

use Data::Dumper;

...
    print "$arr[$index][$_]\n";
    }
}

$VAR1 = [
          101
        ];

sub sub1{

...

    return \@array;
}