in reply to SPLIT()ing headache
$tparse=split(/-/,$current); [download]
should be
@tparse=split(/-/,$current); [download]