$sbox[$i][$j] = $input[$y]

##</code><code>##

use Data::Dumper;
Dumper( \@array );