$ perl test.pl
select * from emp ...etc  2 5 30 35
select * from home ...etc  2 20 20 40
select * from person ...etc  3 10 50 90
$