foreach $key (sort keys %urls) { my @tmpData = @{$urls{$key}}; print "\nDATA: @tmpData\n"; eval { $i2_stmt->execute(@tmpData[0],@tmpData[1],@tmpData[2],@tmpData[3],@tmpData[4 ]); }; if ($@) { $u2_stmt->execute(@tmpData[2],@tmpData[4],@tmpData[4],@tmpData[3],@tmpData[4],@tmpData[0],@tmpData[1]); } }