$r_array_elem = \$array[1]

##</code><code>##

$r_array = \@array