sub generate {
    my $record = shift;
    my $status = shift;
    my %data = %{$_[0]};
    ...