#! perl -slw use strict; while( <> ) { print; } #### package doit; sub new{ return bless {}, $_[0]; } sub enumerate{ my( $aref ) = @_; return @$_; } .... return 1 if caller(); package main; use strict; my $doit = doit->new(); my @data = 1..10; print $doit->enumerate( \@data );