use strict;

##</code><code>##

Bareword "mysub1" not allowed while "strict subs" in use at <file, line number>

##</code><code>##

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