#!/usr/local/bin/perl@FamilyName = ("Tom", "Michael", "A");print $FamilyName[0];print $FamilyName[1];print $FamilyName[2];print "\n\n";print "$FamilyName[0] $FamilyName[1] $FamilyName[2]";