sub parse_header {
   my ($header) = @_;
   do this and thia
}

##</code><code>##

sub parse_header {
   my $header = shift;
   do this and thia
}

##</code><code>##

sub three_args_func {
   my ($arg0, $arg1, $arg2) = @_;
   do this and thia
}

##</code><code>##

sub three_args_func {
   my $arg0 = shift;
   my $arg1 = shift;
   my $arg2 = shift;
   do this and thia
}