Oh and one other thing, I just noticed this in your code you use FILE where it appears you meant to use FILE2,

open FILE2, "user/$name2" or die "Error: $!\n";
my %data2 = ();
while ( my $line2 = <FILE> ) {
    chomp $line2;
    my ($key, $value) = split(/\s*:\s*/, $line2);
    $data2{$key} = $value;
}
close FILE2;
[download]

Hope I helped