Perl: shift() & unshift()
shift() & unshift()
unshift() adds an item to begining of the array
shift() removes an item from begining of array
@flintstones = ("fred","wilma");
shift(@flintstones, "barney");
shift(@flintstones, "betty"); # ("betty", "barney", "fred","wilma")
$a = unshift(@flintstones);
# $a set to "betty", array now holds: ("barney", "fred","wilma");