サブルーチンで複数値の return

いまごろ知ったのが素人くさくて嫌なんですが，

#!/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);
}

print scalar @wd, "\n";        # '7'
print scalar WeekDays1, "\n";  # '7'
print scalar WeekDays2, "\n";  # '7'
print scalar WeekDays3, "\n";  # 'Sat' !

WeedDay3() の出力にちょっとたまげました。