use strict;

my @days;
@days = qw(Monday Tuesday Wednesday Thursday Friday Saturday Sunday);

local $" = ', ';
print "@days\n";
print @days, "\n"
##</code><code>##

Monday, Tuesday, Wednesday, Thursday, Friday, Saturday, Sunday
MondayTuesdayWednesdayThursdayFridaySaturdaySunday