my $temp_scalar=subroutine();
my @ARRAY=@$temp_scalar;
undef $temp_scalar;

sub subroutine {
 my @array=("one", "two"," three");
 return \@array;
}