my $LinesString = @_; ##

##

my $LinesString = shift;

##

##

my ($LinesString) = @_;