push ( @{$data1{$call1}}, $sipm );

##</code><code>##

   print "@{$data1{$call1}}\n";

##</code><code>##

100 200 180 200 200 183
180
100
503 503 503