Maybe instead of:

my $dsn = "@array[0], '@array[1]', '@array[2]'";
[download]

try:

my $dsn = "$array[0], '$array[1]', '$array[2]'";
[download]

to call those array elements individually next time. I am not sure that is your final problem though...