いまごろ知ったのが素人くさくて嫌なんですが， #!/usr/bin/perl use constant WeekDays1 => qw(Sun Mon Tue Wed Thu Fri Sat); my @wd = qw(Sun Mon Tue Wed Thu Fri Sat); sub WeekDays2() { @wd; } sub WeekDays3() { qw(Sun Mon Tue Wed Thu Fri Sat); }…