foreach文

@DNA = ('A', 'T', 'G', 'C'); foreach $item (@DNA) { print "$item\n" }

while文

open (FILE, 'DNA.txt') or die "$!"; while (defined($line = <FILE>)) { print $line; } close(FILE);

for文

#以下の２つは同じ意味 for ($i = 0; $i < 10; $i++){ print $i; } for $i (0..9) { print $i; }

文字列の繰り返し

print '+' x 40 "\n";

map関数

@square = map {$_ **2} (0..9);