#!/usr/bin/perl

use strict;
use warnings;

sub funkce (_;$) { return $_[0] + ($_[1] // 0); }
sub funkce2 ($_) { return $_[0] + ($_[1] // 0); }

my @a = (2,3,4);

$_ = 6;

print funkce;
print funkce 1;
print funkce 1, 1;

print funkce2 1;
print funkce2 1, 1;