net::FTP. one works but not the other

sub openfile{
	my $fileinit="/home/speg/transferfile.init";
	print "Name of File read: $fileinit\n";
	$/="---\n";
	open(ALL,"$fileinit")or die"Couldnt read from $fileinit\n";
	while(<ALL>){
	       chomp();
		if ($_=~"SYNAX1"){
			my @line=split("\n",$_);
			print "\nSTAT: $_\n";
			($name,$ip,$sd,$td,$wildcard,$username,$password,$buffer,$localbuffer)=@line;
			&select1();
		}
	}close ALL;
}
sub select1{
        print "Enter source directory:";
        chomp($source_dir  = <STDIN>);
        print "\n\n";

        $ftp = Net::FTP->new("$ip", Debug => 0)|| die "Cannot connect to $ip: $@";   
        $ftp->login("$username","$password")or die "Cannot login ", $ftp->message;
			
			$ftp->cwd("$source_dir");
			@list=$ftp->ls("$source_dir");
			foreach(@list){
				print"$_\n";
	print "Enter file:";
	chomp ($key = <STDIN>);
	print "FILE:$key";
	print "Enter local directory to store the file:";
	chomp ($target_dir = <STDIN>);
	print "\n\n";

		      $final="$target_dir\/$key";
		      $ftp->cwd("$source_dir");
		      $ftp->binary();
	     	      $ftp->get("$key","$final");
	              print "File Transfer Complete\n\n";
	     	      $ftp->quit;
	              &quit();
              }
}

sub select1{
                print "Enter source directory:";
                chomp($source_dir=<STDIN>);
                print "\n\n";
                $ftp = Net::FTP->new("202.1.154.34", Debug => 0)|| die "Cannot connect to $ip: $@";    #CONNECT TO IP
                $ftp->login("speg","update?")or die "Cannot login ", $ftp->message;
		$ftp->cwd("$source_dir");
                @list=$ftp->ls("$source_dir");
                foreach(@list){
		print"$_\n";
		}
                
                print "\n\nEnter file to get:";
                chomp($key=<STDIN>);
                print "\n\n";
                print "Enter target directory to place:";
                chomp($target_dir=<STDIN>);
                print "\n\n";
		$final="$target_dir\/$key";
                $ftp->binary();                                                               
                $ftp->get("$key","$final")||die"$!";                                         
                print "File Transfer Complete\n\n";
                $ftp->quit;
		&quit();
}

$/="---\n";

SYNAX1
202.1.152.41
/logs/STDF
/local/home/transfer/DATALOG/FT/STDF
.stdf
speg
update?
6
21
---
SYNAX1
202.1.152.31
/logs/GDF
/local/home/transfer/DATALOG/FT/GDF
.gdf
speg
update?
6
12
---
SYNAX2
202.1.152.12
/logs/STDF
/local/home/transfer/DATALOG/FT/STDF
.stdf
speg
update?
6
21
---
SYNAX2
202.1.152.21
/logs/GDF
/local/home/transfer/DATALOG/FT/GDF
.gdf
speg
update?
6
12
---
SYNAX3
202.1.152.21
/logs/STDF
/local/home/transfer/DATALOG/FT/STDF
.stdf
speg
update?
6
21
---