Help for this page
cat File1 File2 | perl -lane "$h{$F[0]} .= qq( @F[1..$#F]); END { prin +t map qq($_$h{$_}\n), qw(A M S T Z); }" A Rahul 30 27 Apple ... T Rayan 72 45 Train Z Sindh 4 90 Zebra