my ($aref) = @_;
#or do
my $aref = $_[0];
#or 
my $aref = shift;