Perlクラブ

問題 1

問題 2

問題 3

問題 4

問題 5

問題 6

問題 7

問題 8

問題 9

問題 10

問題 11

問題 12

問題 13

問題 14

問題 15

問題 16

問題 17

問題 18

問題 19

問題 20

問題 21

問題 22

問題 23

問題 24

問題 25

問題 26

問題 27

問題 28

問題 29

問題 30

問題 31

my @nums = (5, 11, 3, 2);
@nums = sort {$a <=> $b} @nums;
for (@nums) { print $_ . " ";}