#!/usr/bin/perl

use warnings;
use strict;

$" = "|";
$, = "|";

my @array = 0..100;
print @array, "\n";

while(1)
{
	print "arraycmd# ";
	my $cmd = <>;
	chomp $cmd;

	if($cmd eq "pop")
	{
		print "Input number of times you wish to pop: ";
		my $poptimes = <>;
		chomp $poptimes;

		for(my $y = 0; $y < $poptimes; $y++)
		{
			pop @array;
		}
	}

	if($cmd eq "push")
	{
		print "Input element: ";
		my $element = <>;
		chomp $element;
		push @array, $element;
	}
	
	if($cmd eq "exit" || $cmd eq "quit")
	{
		last;
	}

	print @array, "\n";
}