What is your good reason for using prototypes? (There are some.)

As far as I've learned there are few reason to use Perl prototypes. In my day to day life is normally sufficient to pass by reference or with named parameters, as you have done.
Prototypes are good only (in my humble experience) when you want bypass the flattening behaviour of @_, ie when you want to mimicry the behaviour of builtin function like push

# built in
push @array, $first, $second, @all;

# if you want to have something similar you have to 
sub my_push (\@@){
    my $array_ref = shift;
    my @values = @_;
    ...
}

# so you can call it as
my_push @arr, 'as', 'it was', 'a builtin';
[download]

The above is described in the Perl Cookbook in the chapter about subroutines.
Note: the syntax described in the perl cookbook seem a bit aged but still works:

perl -MConfig -e "print qq(For Perl $Config{version} the push prototyp
+e is: ),prototype 'CORE::push' "
For Perl 5.8.8 the push prototype is: \@@

perl -e " sub my_push (\@@){$x=shift;push @{$x},@_ }; my_push @arr, qw
+(a,c,v); print @arr"
a,c,v

# BUT if you inspect manually the prototype of the original push on a 
+recent Perl you'll see

perl -MConfig -e "print qq(For Perl $Config{version} the push prototyp
+e is: ),prototype 'CORE::push' "
For Perl 5.14.2 the push prototype is: +@
[download]

The prototype function is useful and produce the list provided in Prototypes section of perlsub.

As corallary of the no-flattening behaviour you can and must use prototypes when you want to pass subroutines as arguments to other subroutine, as you do with grep map and sort, for example.

my_grep (&@){
   my $sub_ref = shift;
   @to_be_filterd = @_;
   ...
}
[download]

Passing sub as arg is described in chapter 8 of Mastering Perl.

For complteness you MUST remember that "Calling a subroutine as &foo with no trailing parentheses ignores the prototype of foo and passes it the current value of the argument list, @_" as stated in the FAQ What's the difference between calling a function as &foo and foo()?

I see no reason to use prototypes in your case. In the official docs is stated about prototypes: Because the intent of this feature is primarily to let you define subroutines that work like built-in functions,...

HtH
L*

---

---

• Are you posting in the right place? Check out Where do I post X? to know for sure.
• Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:

  <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>

• Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
• Want more info? How to link or How to display code and escape characters are good places to start.