8 lines
134 B
Perl
8 lines
134 B
Perl
|
#!/usr/local/bin/perl
|
||
|
@digits = (1..10);
|
||
|
foreach $number (@digits){
|
||
|
print $number;
|
||
|
$number += 10;
|
||
|
}
|
||
|
print "\n\n@digits";
|