foreach my $key (qw/name Specialization age/){
    print "enter your $key\n";
    $info{$key} = <STDIN>;
    chomp $info{$key}; # get rid of the EOL
    print $filehandle "$key: $info{$key}\n";
}