#Perl, 31 bytes

-6 byte thanks to @Denis Ibaev

say$_ x$A++,$_..Z for A..Z

Needs -M5.010 to run. So run with :

perl -M5.010 -e 'say$_ x$A++,$_..Z for A..Z'  

Perl, 31 bytes

-6 byte thanks to @Denis Ibaev

say$_ x$A++,$_..Z for A..Z

Needs -M5.010 to run. So run with :

perl -M5.010 -e 'say$_ x$A++,$_..Z for A..Z'  

#Perl, 31 bytes

-1 byte thanks to @Dom Hastings

say$_ x(-65+ord),$_..Z for A..Z  

Needs -M5.010 to run. So run with :

perl -M5.010 -e 'say$_ x(-65+ord),$_..Z for A..Z'  

Pretty decent byte count I think.

Explanations :
Loops from characters A to Z, and each time prints a line consisting of :

• -65+ord times the current character (which is basically the position of the current character in the alphabet : 0 for 'A', 1 for 'B', etc.)
• every character from the current character to 'Z' (done with $_..Z)

#Perl, 31 bytes

-6 byte thanks to @Denis Ibaev

say$_ x$A++,$_..Z for A..Z

Needs -M5.010 to run. So run with :

perl -M5.010 -e 'say$_ x$A++,$_..Z for A..Z'  

#Perl, 31 bytes

-1 byte thanks to @Dom Hastings

say$_ x(-65+ord),$_..Z for A..Z  

Needs -M5.010 to run. So run with :

perl -M5.010 -e 'say$_ x(-65+ord),$_..Z for A..Z'  

Pretty decent byte count I think.

Explanations :
Loops from characters A to Z, and each time prints a line consisting of :

• -65+ord times the current character (which is basically the position of the current character in the alphabet : 0 for 'A', 1 for 'B', etc.)
• every character from the current character to 'Z' (done with $_..Z)

#Perl, 31 bytes

-1 byte thanks to @Dom Hastings

say$_ x(-65+ord),$_..Z for A..Z  

Needs -M5.010 to run. So run with :

perl -M5.010 -e 'say$_ x(-65+ord),$_..Z for A..Z'  

Pretty decent byte count I think.

Explanations :
Loops from characters A to Z, and each time prints a line consisting of :

• -65+ord times the current character (which is basically the position of the current character in the alphabet : 0 for 'A', 1 for 'B', etc.)
• every character from the current character to 'Z' (done with $_..Z)