<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl -w

use strict;

my @a = ('def', 123);

push @a, 456;
unshift @a, 'abc';

print "@a\n";
print @a, "\n";

print "Popped ", pop @a, " from \@a \n";
print "Shifted ", shift @a, " from \@a\n";

print "@a\n";
</pre></body></html>