use Data::Dumper;
sub mysub2 {
    print STDERR Dumper( \@_ ), "\n";
    my @array = @_;