my $user = substr($Fname, 0, 1) . substr($Lname, 0, 3) . substr($ssn, -4);