#!/usr/bin/perl

@grades = (100, 90, 89);
print "Grades are: @grades\n";
# Grades are: 100, 90, 89

unshift(@grades,54);
print "Grades are: @grades\n";
# Grades are: 54, 100, 90, 89

$deleted = shift(@grades);
print "Deleted the grade $deleted\n";
print "Grades are now: @grades\n";
# Deleted the grade 54
# Grades are now: 100, 90, 89