#!/usr/bin/perl

use strict;
use warnings;

my $i=5;
&test($i);

sub test{
    my $i = shift @_; # !!!
    for(1..$i){  
        print "\@_ in der for-schleife: @_\n";
        print 'rechnen in der for-schleife: ',$_+$_,"\n";
    }
}