For starters, when you refer to a single element of an array use a starting $ not an @. Then use separate brackets for each dimension, more like this:

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

Also, you might try Data::Dumper which will show you your structures:

use Data::Dumper;
Dumper( \@array );
[download]

Phil