#!/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";
    }
}