alphabet mean

alphabet.pl

#!/usr/bin/env perl

use warnings;
use v5.10;

use Data::Dumper;

my @alfabet = ('A' .. 'Z');


# print "$^[ALPHABET MEAN]\n";


  print "A = $^A" . "\n";
  print "B = $^B" . "\n";
  print "C = $^C" . "\n";
  print "D = $^D" . "\n";
  print "E = $^E" . "\n";
  print "F = $^F" . "\n";
  print "G = $^G" . "\n";
  print "H = $^H" . "\n";
  print "I = $^I" . "\n";
  print "J = $^J" . "\n";
  print "K = $^K" . "\n";
  print "L = $^L" . "\n";
  print "M = $^M" . "\n";
  print "N = $^N" . "\n";
  print "O = $^O" . "\n";
  print "P = $^P" . "\n";
  print "Q = $^Q" . "\n";
  print "R = $^R" . "\n";
  print "S = $^S" . "\n";
  print "T = $^T" . "\n";
  print "U = $^U" . "\n";
  print "V = $^V" . "\n";
  print "W = $^W" . "\n";
  print "X = $^X" . "\n";
  print "Y = $^Y" . "\n";
  print "Z = $^Z" . "\n";

kekka.txt

# 意味あるのそんなになかった

A = 
Use of uninitialized value $^B in concatenation (.) or string at hoge.pl line 15.
B = 
C = 0
D = 0
E = 
F = 2
Use of uninitialized value $^G in concatenation (.) or string at hoge.pl line 20.
G = 
H = 256
Use of uninitialized value $^I in concatenation (.) or string at hoge.pl line 22.
I = 
Use of uninitialized value $^J in concatenation (.) or string at hoge.pl line 23.
J = 
Use of uninitialized value $^K in concatenation (.) or string at hoge.pl line 24.
K = 
L = 

Use of uninitialized value $^M in concatenation (.) or string at hoge.pl line 26.
M = 
Use of uninitialized value $^N in concatenation (.) or string at hoge.pl line 27.
N = 
O = darwin
P = 0
Use of uninitialized value $^Q in concatenation (.) or string at hoge.pl line 30.
Q = 
Use of uninitialized value $^R in concatenation (.) or string at hoge.pl line 31.
R = 
S = 0
T = 1333992534
Use of uninitialized value $^U in concatenation (.) or string at hoge.pl line 34.
U = 
V = v5.14.2
W = 0
X = perl
Use of uninitialized value $^Y in concatenation (.) or string at hoge.pl line 38.
Y = 
Use of uninitialized value $^Z in concatenation (.) or string at hoge.pl line 39.
Z =