I would start by testing the return value of your open statement. Is there a reason for passing an array for the filepath to open?

open(HUMAN, "<", @human)
  or die "$!: $human[0]";
[download]

;