Perl--------------------------------------------------------------
1234を値として 5000を値として 10000を値としてＣ--------------------------------------------------------------
1234を値として 5000を値として 10000を値としてＣ multi--------------------------------------------------------
1234を値として 5000を値として 10000を値として