#!/usr/bin/perl -w
use Data::Dumper;

$ref=\(1..3);
$enum_list_ref=\(1,2,3);
@a=(\(1..3),\(5..9));

print "\n".Dumper($ref)."\n";
print "\n".Dumper($enum_list_ref)."\n";
print "\n".Dumper(\@a)."\n";