Select Code to Download

while (@options) {
    my $option = hex shift @options;
...

    push @{$opts{$option}}, splice( @options, 0, $length );
}