#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

sub foo {
    my $bar = shift || [];
    push @$bar, 'yellow';
    return Dumper $bar;
}

my @baz = qw /red green blue/;
print foo \@baz;