Select Code to Download

   print(qq($passwords{"Matt"} is my password.));

%passwords = ("Matt", "s1k1d52", "scuzzy", "2ab928", "Marky", "s8291s"
+,
"Jeb", "jeb23");

use Data::Dumper;
print Dumper(\%passwords);