#!/usr/bin/perl -wuse strict;my @array1;my $scalar1;@array1 = qw(Monday Tuesday Wednesday Thursday Friday Saturday Sunday);print @array1;