Array Perl

#!/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]";