サブルーチンプロトタイプに関数与えた際に勝手に付くuseとか

gistfile1.pl

#!/usr/bin/env perl
use strict;
use utf8;

use Data::Dumper::Concise;

sub hoge(&;$) {
    my $a = shift;
    warn Dumper($a);
    return $a->();
}

hoge sub { return 3 } ;

__END__
perl hoge.pl
sub {
    use strict;
    return 3;
}

gistfile2.pl

#!/usr/bin/env perl
use warnings;
use strict;
use utf8;

use Data::Dumper::Concise;

sub hoge(&;$) {
    my $a = shift;
    warn Dumper($a);
    return $a->();
}

hoge sub { return 3 } ;

__END__
perl hoge.pl
sub {
    use warnings;
    use strict;
    return 3;
}

gistfile3.pl

#!/usr/bin/env perl
package Hoge;
use strict;
use utf8;

use Data::Dumper::Concise;

sub hoge(&;$) {
    my $a = shift;
    warn Dumper($a);
    return $a->();
}

hoge sub { return 3 } ;

__END__
perl hoge.pl
sub {
    package Hoge;
    use scrict;
    return 3;
}