my @array     = ('Matthew', 'Mark', 'Luke', 'John');
my $array_ref = \@array;
my @new_array =  @{ $array_ref };
print join(', ', @new_array);