Use a dispatch table:

my %dispatch = (
    A => \&unpack_a,
    B => \&unpack_b,
    C => \&unpack_c,
);
# ...
$dispatch{$RECORD_SEQ_ID}->($lines[$_]);
[download]