Select Code to Download

ttys = ( );

...
}
The heart

#!/usr/bin/perl -w

...
   print "$data1{$call1}\n"; 
}
close FH;

Scalar value @{data1{$call1} better written as ${data1{$call1} at ./pe
+rl.m line 12.<br>
Type of arg 1 to push must be array (not hash slice) at ./perl.m line 
+12, near "$sipm )"
Execution of ./perl.m aborted due to compilation errors.