Select Code to Download

unpack_fields(
    $record,
...
    padding     => 5,
    \my $flag2  => 1,
);

# this would be much easier in Perl 6

...

    ${ shift @var } = shift @value while @value;
}