shift @_ = split /,/,join "\n",$myscalar