#!/usr/bin/perl

$a = 1;    #変数 $a に１を代入する。
$b = 2;   　#変数 $b に2を代入する。
$c = $a + $b;
print "$a + $b = $c \n";　　#1 + 2 = 3と出力される

@array = (11,13,15);
print "@array\n";

%fruit = ("0", "apple", "1", "banana", "9", "orange");
print "0=$fruit{0} , 1=$fruit{1} \n";
@hash = keys (%fruit);
print "@hash \n";
@hash = values(%fruit);
print "@hash \n";

*************************

$ perl test.pl  で実行すると
1 + 2 = 3
11 13 15
0=apple , 1=banana
1 0 9
banana apple orange