Select Code to Download

100110000000....

@device1_status = qw (
  Enabled
...
  .
  .
);

foreach my $index (0 .. $#bits) {
  print "$device1_status[$index]\n" if ( $bits[$index] );
}

%status = {
  'dev1'  =>  [ qw( enabled
...
                    .
                    )  ],
};