sub array{

          my @ret = ( "a", "b", "c", "d");
          return \@ret;

     }

     my $b = &array();

     my @B = @$b;
[download]