Program Repair Shop

Repeated code

Here's another such, from yet another program:

            my %stationInfo = shift;
            my $callsign = $stationInfo{Callsign};
        my $timestamp =$stationInfo{LastHeard};
        my $position = $stationInfo{Position};
        my $status = $stationInfo{Status};

Better:

        my %stationInfo = shift;
        my               ($callsign, $timestamp, $position, $status) =
          @stationInfo{qw( Callsign   LastHeard   Position   Status)};