use strict;
use warnings;

sub func {
    print $_, ' ' for @_;
    print "\n";
    $_[2];
}

my $i = 3;
my $rv = func(0+$i, 0+ ++$i, 0+$i+2);