print <<'HEAD'; All the cards in the tipjar playing cards deck HEAD foreach $R (split ('','A123456789TJQK')){ print <<"RANK"; RANK } print <<'FOOT';
TipJar Playing Cards FOOT