Select Code to Download

...open LOGFILE...
my (@list, %info);
...
  push(@list, { %info }); 
}
# @list contains parsed Frame records

my $bytes;
for my $line (@{$info->{data}}) {
...
    $bytes .= pack("H*", $hex);
  }
}