use Data::Alias qw( alias );

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

{
    my $i = 3;
    func( $i, ++$i, $i+2 );
}

{
    my $i = 3;
    local @_;
    alias push @_, $i;
    alias push @_, ++$i;
    alias push @_, $i+2;
    &func;
}