use Data::Dumper;

{
    $a = 1;
    $b = 2;
    $c = 3;
    @a = \($a,$b, $c);
    print @a, "\n";#this is an array of ref
}

{
    $a = 1;
    $b = 2;
    $c = 3;
    $d = [\($a,$b, $c)];
    print @$d, "\n";#this is an array of ref
}

{
    @a = \(1..3);
    print Dumper(@a);#this is an ref to an array
}