Perl - 小骆驼

$perl = "perl" * 2; 
##"perlperl"

---

chmop($input = <STDIN>);

---

$input = <STDIN>;
if ( defined ( $input ) ) {
    print "The input was $input";
} else {
    print "No input available!\n";
}

---

@array = ( 1, 2, 3 );
@array = qw{ 1 2 3 };
@array[-1]
## quoted word

---

@array = 0..1;
pop @array;
push @array 2..3;
## 0, 2, 3

---

@array = 0..1;
shift @array;
unshift @array 2..3;
## 2, 3, 1

---

foreach (0..1){
    print;
}
## $_
## 01

---

@array = qw{ B C A };
@array = sort(@array);
## ABC

---

$value = value(1);
sub value{
    $value = shift @_;
    $value;
}
## 1