my ( $scalar_1, $scalar_2, $scalar_3, $scalar_4 ) = @array;