sub insert (\@@) {
    my $arr=shift;
    push @$arr, pack '(B8)*', @_;
}

# ...

insert @Hibbs_Daglish_Schwartz_Vroom,
qw/
  01010110
  01110010
  01101111
  01101111
  01101101
/;