sub test{

    # code
    # noch mehr code

    my @array = (1..20);
    for my $i ( @array ){
        print $i;
    }
}