cat File1 File2 | perl -lane "$h{$F[0]} .= qq( @F[1..$#F]); END { print map qq($_$h{$_}\n), qw(A M S T Z); }"
A Rahul 30 27 Apple
M Radha 45 Mango
S Ayaan 2 30 Sea
T Rayan 72 45 Train
Z Sindh 4 90 Zebra