use strict;
use warnings;
use Data::Dumper;

sub undef_ref
{	
	my $ref = shift;
	my @struct = @$ref;
	undef @struct;
	print '='x20;
	print"\n";
	print Dumper(@struct);
}

my @struct = ('a','b','c','d','e');
undef_ref(\@struct);
print '='x20;
print"\n";
print Dumper(@struct);