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