$ myprogram.pl 'text1 string1 word1 number1,text2 string2 ...

# then process @ARGV
for ( split /,/, $ARGV[0] ){
	subroutine1( split/ /, $_ );
}