my @ARRAY=subroutine();

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