use warnings;
use strict;
use Queue;

my $line;

tie( $line, 'Queue', 'a b c d' );

print $line, "\n";
print $line, "\n";
print $line, "\n";