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

    last if $option == 255; # end of DHCP Options

    my $length = hex shift @options;

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