test1.pl

#!/usr/bin/perl -w

use strict;
use warnings;

my @arr1 = qw(apple orange banana water_ melon);

print "fruits:@arr1\n"