#!/usr/local/bin/perl5.00503

@foo_list    = (1,2,3);
my @bar_list = (4,5,6);

my $src  = "foo";
my @list = @{"${src}_list"};
print "length = " . scalar @list . "\n";

$src  = "pnotes";
@list = @{"${src}_list"};
print "length = " . scalar @list . "\n";