Added ch-2.p6

1 files changed, 22 insertions, 0 deletions

diff --git a/challenge-031/ruben-westerberg/perl6/ch-2.p6 b/challenge-031/ruben-westerberg/perl6/ch-2.p6
new file mode 100755
index 0000000000..61bfdceee6
--- /dev/null
+++ b/challenge-031/ruben-westerberg/perl6/ch-2.p6
@@ -0,0 +1,22 @@
+#!/usr/bin/env perl6
+use MONKEY-SEE-NO-EVAL;
+my $name=@*ARGS[0]//"\$var"~1000.Int;
+my $value=@*ARGS[1]//1.rand;
+{
+	put "Using Module/eval";
+	module D {
+		EVAL "our \$$name=\"$value\"";
+	}
+	put $D::($name);
+	put "Variable name: $name Value: {$D::($name)}";
+}
+
+put "";
+
+{
+	put "Using Hash";
+	my %h;
+	%h{$name}=$value;
+	put "Variable name: $name Value: %h{$name}";
+
+}