#!/usr/bin/perl

# AN ARRAY
@coins = ("Quarter","Dime","Nickel");
print "@coins";
print "\n\r";

# ADD ELEMENTS
push(@coins, "Penny");
print "@coins";
print "\n\r";

unshift(@coins, "Dollar");
print "@coins";
print "\n\r";

@scoins = sort(@coins);
print sort(@coins);
print "\n\r";
print "@scoins";
print "\n\r";

# REMOVE ELEMENTS
pop(@coins);
print "@coins";
print "\n\r";

# BACK TO HOW IT WAS
shift(@coins);
print "@coins";
print "\n\r";