You should turn on warnings and meditate on

Scalar value @recordset[$i] better written as $recordset[$i]
[download]