请仔细查看下列Perl程序,选出正确输出结果的选项。
@array=qw#white black red#;
$a =shift(@array);
$b =shift(@array);
shift @array;
unshift(@array,"green");
unshift(@array,"yellow");
@others =1..3;
unshift @array,@others;
print "@array";
@array =join(" ",@array,$a,$b);