#!/usr/bin/perl -w

use strict;

my @MyQueue = ();

{
     # Add items to queue
     push @MyQueue, 'First Entry';
     push @MyQueue, 'Second Entry';

     # Consume from queue (FIFO)
     my $nextEntry = shift @MyQueue;
}