my $myarray = shift @_;