sub format_email_text
{
my @arr;

$arr[0]=sprintf("%-30s %-50s","Player Name:",$player);
$arr[1]=sprintf("%-30s %-50s","Parent's Name:",$parent);
$arr[2]=sprintf("%-30s %-50s","Member ID:",$memberid);

return (@arr);
}

my @vals = format_email_text();
print "Player Name : " . $vals[0] . "\n";
print "Parent Name : " . $vals[1] . "\n";
print "Member ID : " . $vals[2] . "\n";