use strict;
use warnings;

my $foo;

my @bar = @$foo;