Help for this page

Select Code to Download

Select or download this

    my @nums= <STDIN>;
    my @index= sort { $nums[$a-1] <=> $nums[$b-1] } 1..@nums;
    print join "\n", @index, '';

Select or download this
```
1
2
4
3
5
```