#!/usr/bin/perl -w
use strict;
use warnings;

my $t = test->new();
while (my $i = $t->get) { print $i; };

package test;
use strict;
use warnings;

my @list;

sub new {
	my $self = shift;
	my $this = {};
	@list = ( 1, 2, 5, 6, 8, 0, 9 );
	bless($this, $self);
	return($this);
	};

sub get {
	return(shift(@list)); 
	};
1;