my $myarray = shift;
my $myarray = @_;