# print last element
print $myArray[-1];

# joined rest of the elements
print join "",@myArray[0 .. $#myArray-1] if @myArray >1;

如果你不介意修改数组,

# print last element
print pop @myArray;

# joined rest of the elements
print join "",@myArray;