Shell Programming and Scripting

#!/usr/bin/perl -w

print "Enter page Access";
chomp ($item = <STDIN>);
my @queue = split /\s+/, $item;
print "Enter a page frame";
$frame = <STDIN>;
if ( $frame >= 3 )
{
    $fifo = pop @queue;

    print "Remove FIFO item: $fifo\n";
    print "Final queue:\n  @queue \n\n";

}

Enter page Access1 2 3 4 5 6 7 8
Enter a page frame3
Remove FIFO item: 8
Final queue:
  1 2 3 4 5 6 7

$fifo = shift @queue;