#!/usr/bin/perl

use strict;
use warnings;

sub funkce (&@) { my $kod = shift; foreach $_ (@_) { &$kod } }

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

funkce {
	print $_ + 1;
} @a;