#!/usr/bin/perl -w
use strict;
use warnings;
use Data::Dumper;

my @ab = ("Emma", "Paul"); 
test(\@ab);

sub test {
	my $ref = $_[0];
	print Dumper($ref);
}