6 lines
103 B
Perl
6 lines
103 B
Perl
|
my @fifo=qw(1 2 3 a b c);
|
||
|
|
|
||
|
|
mypush @fifo, 44, 55, 66;
|
||
|
|
mypop @fifo for 1 .. 6+3;
|
||
|
|
mypop @fifo; #empty now
|