my @foo = (1, 2, "foo");
my $bar = [\(@foo)];

use Data::Dumper;
print Dumper $bar;

__END__
$VAR1 = [
          \1,
          \2,
          \'foo'
        ];