Select Code to Download

#!/usr/bin/env perl

...
        print "\t@{$readings}{@order}\n";
    }
}

Report A - Device DEVQ
        s4 u3 f1
...
Report C - Device DEVA
        s4 u3 f1
        s6 u4 f2