greg@sparky:~/test$ cat enum 
#!/usr/bin/perl -w
use Data::Dumper;

$ref=\(0..3);
$enum_list=\(4,5,6);

print "\n".Dumper($ref)."\n";
print "\n".Dumper($enum_list)."\n";

greg@sparky:~/test$ ./enum 

$VAR1 = [
          0,
          1,
          2,
          3
        ];


$VAR1 = \6;