I much prefer:

sub doSuff {
    my ($param1) = @_;
    ...
}
[download]

which then scales well to:

sub doSuff {
    my ($param1, $param2, $param3) = @_;
    ...
}
[download]