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