#!/usr/local/bin/perl -w
use Devel::Peek;
sub func {
	$ref = shift;
	Dump($ref);
}
@array=('a',5);
func(\@array);