test(3);

sub test {
    my ($parameter) = @_;
    print "Mir wurde der Index 3 uebergeben\n";
}