No, I'm writing this myself. My complete script looks like the one at the bottom of this node. But you're right, this IS running on Windows.

#!/usr/bin/perl

use strict;
use warnings;

my %numbers = (
            "one"   => "1",
            "two"   => "2",
            "three" => "3"
           ); 

print $numbers{"one"};
[download]