#!/usr/bin/perl

use strict;

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

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

sub process_list {
    my($list_ref) = @_;
    sub get_list { return @$list_ref; }

    print_list();
}

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