"Can't modify concatenation (.) or string in scalar assignment at testpl.pl line 16, near "$n;"
Execution of testpl.pl aborted due to compilation errors."

##</code><code>##


#!/usr/bin/perl
use strict;
my $txt='some';
my $arg_cnt=3;
my ($rv1,$rv2,$rv3)=&get_val($arg_cnt);
print "rv1:$rv1\n";
print "rv2:$rv2\n";
print "rv3:$rv3\n";

sub get_val {
	my $cnt = shift;
	# generate random and declare variable depends on $cnt value
	my $random_var; 
	my ($var,$var1,$var2,$var3,$var4,$var5,$var6,$var7,$var8,$var9,$var10,$var11,$var12,$var13);
	for my $n (1..$cnt){
		$var.$n = $n;
		$random_var .= '$var'."$_".',';
	}
	$random_var =~ s/\,$//;
	print "get_var: $random_var\n";

	return($random_var);
}