#!/usr/bin/perl

use strict;
use warnings;

my $i=5;
&test($i);
sub test{
    print "uebergeben an test: @_\n";
    for(1..$i){  # hier kann ich $i gegen @_ nicht tauschen
        print "\@_ in der for-schleife: @_\n";
        print 'rechnen in der for-schleife: ',$_+$_,"\n";
    }
}