Is this really the code you ran? In the very first line you bind $ftp_1 but all through the code you use $ftp1

use strict and use warnings (or -w if perl version < 5.6.0) would have caught this