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