#!/usr/bin/perl -w

use strict;

my @firstlist = qw(1 2 3 4 5);
my @secondlist = qw(A B C D E);

process_list(\@firstlist);
process_list(\@secondlist);

{
   my $list_ref;

   sub process_list {
       ($list_ref) = @_;

       sub get_list { return @$list_ref; }

       print_list();
   }
}

sub print_list {
    foreach my $item (get_list()) {
        print "LIST ITEM: $item\n";
    }
}

##</code><code>##

LIST ITEM: 1
LIST ITEM: 2
LIST ITEM: 3
LIST ITEM: 4
LIST ITEM: 5
LIST ITEM: A
LIST ITEM: B
LIST ITEM: C
LIST ITEM: D
LIST ITEM: E