use strict;
use warnings;

my (@genome_data_g);
upstream(\@genome_data_g);

foreach $datapoint (@genome_data_g) {
    print "$datapoint\n";
}

sub upstream {
    my $array_ref = shift;
    $$array_ref[1] = 'some value';
}