my @params; while (my $order = <$csv_fh>) { push @{$params[0]}, $order->{orderid}; push @{$params[1]}, $order->{volremain}; push @{$params[2]}, $order->{price}; } $sth->bind_param_array(1, $params[0]); $sth->bind_param_array(2, $params[1]); $sth->bind_param_array(3, $params[2]);