catalog_id = '12L',
price      = '6L*2'


##</code><code>##

package Business::Logic::Orders;

our $line_data = [
 { catalog_id => '12L' } ,
 { price      => '6L*2' }
 ];

1;

##</code><code>##

###
open D, 'data-file.dat';
while (<D>) {
   Parse::FixedLength::Parse(\%line_parse, $Business::Logic::Orders);
   DBIx::Recordset->Insert({ \%dsn }, \%line_parse} );
}