my %order_line = read_from_csv();
my @fields = qw(firstname lastname);
my %identity;
@identity{@fields} = @order_line{@fields};
my $customer = Customer->find_or_create(\%identity);