my @array = (1, 2, 3, 'four');
    my $reference = \@array;
    $reference->[0] = 'one';
    print "@array";