my ($f1, $f2, $ftp_upload_location) = @$f
#...
$ftp->cwd ($ftp_upload_location);
#...