Hi, I have implement queue but it take last element instead of fist element
#!/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";
}
output
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