my @friends = ("Simon", "Howard", "Jane", "Jacinta");
print $freind[3];