my $val;
$val = &func[1];
print $val;

sub func {
  qw ( just some list );
}