6.pl

#!/usr/bin/perl6


my @hello = "hello", "world";

say @hello.perl;

for @hello -> $item {
    say $item
}

my %pair = (
    foo => "bar"
);

say %pair.perl;

sub do_something ( Str $foo, Int $bar ) {
    "foo is $foo, bar is $bar";
}

say do_something("google", 3);

class Hello {
    method hello(Str $name, Int $age) {
        "Hello, I am $name, my age is $age"
    }
}

say Hello.new.hello("shelling", 26);

role Walk {
    
}

class World is Hello does Walk {

}

say World.new.hello("shelling", 26)