#!/usr/bin/perl
    use strict;
    use warnings;

    my @friends = ('Margaret', 'Richard', 'Carolyn', 
                   'Rohan', 'Cathy', 'Yukiko');
    print "Friends: @friends\n";