Help for this page
push ( @{$data1{$call1}}, $sipm );
print "@{$data1{$call1}}\n";
100 200 180 200 200 183 180 100 503 503 503