my $id;
while.... {

    $id  = $1 if /Logical device ID=(\w+)/ ;
    dd  { line => $_, id => $id };
}