sub funktion ($;$) {
    my $bla   = shift;
    my $blubb = shift || '';

    ...
}

...

funktion();              # Fehler !
funktion('A');           # OK
funktion('A', 'B');      # OK
funktion('A', 'B', 'C'); # Fehler!