say "Hello World"; 
# say is like print with an appended newline
# at the end of the output (like writeln in Pascal)

#Perl5 code
my $a = 2;
my $b = 3.14;
my $c = "Hello, my name is n00b";

--

#Perl6 code
my int $a = 2;
my num $b = 3.14;
my str $c = "Hello, my name is n00b";

my $var = 3.14; # 3.14 is assumed to be a number

#Perl5 code
my @array = (0,1,2,3,4);
my $element = $array[3];

--

#Perl6 code
my @array = (0,1,2,3,4);
my $element = @array[1];

#Perl5 code
sub execute_something($a,$b,$c) {...}

#Perl6 code	
sub execute_something(int $a, num $b, str $c) {...}

sub incr(num $x) {
   $x++; #executing this subroutine will cause a compile-time error
}

 sub incr(num $x is rw) { $x++ } 

sub my_split(Rule ?$pat = rx/\s+/, Str ?$expr = $_, Int ?$lim where $^li)

- Capturing: (...)
- Alternatives: |
- Backslash escape: \
- Repetition quantifiers: *, + and ?
- Minimal matching suffix: *?, +?, 

if is_true() {
        for @array {
             ...
        }
}

if 150 <= $inta == $intb <= 200 { say "Double check!" }

my int @array = 0..Inf; #integeres from 0 to infinity
 for @array - $counter {
          say "$counter";
          last if $counter >= 10;
}

#Perl5 code
while (<>) {
   print;
}

--

#Perl6 code
for =<> {
   print;
}

my $even_digit = 0|2|4|6|8; # any (0,2,4,6,8)
my $odd_digits = 1&3&5&7;   # all (1,3,5,7)
my $not_zero = none(0);

my $junction = 1|2|3;
$junction += 4;     #junction now equals 4|6|7
$junction += (1&2); #junction now equals (6|7|8)&(7|8|9)

if $grade eq any('A'..'D') { say "pass"}

if %person{any('first_name','nickname')} eq "Joe" { say "How do you do, Joe?"}

for all(@array) {...}

#Perl5 code
my $obj = bless $reference, 'Class';

#Perl5 code
$obj-method();

#Perl6 code
class Point is rw {
    has $.x;
    has $.y;
}

#Perl6 code
my Point $point .= new;
$point.x = 1.5;
$point.y = -3.14;