diff --git a/Misc./hw.pl b/Misc./hw.pl
new file mode 100755
index 0000000..ca3fb93
--- /dev/null
+++ b/Misc./hw.pl
@@ -0,0 +1,5 @@
+#!/usr/bin/perl
+my $var;
+my $number = 10;
+my @array  = ($number, $number, $number);
+my %map    = (ten => $number, also_ten => $number);