print $array[ $i - 1 ];

##</code><code>##

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