#!/usr/bin/perl

my %example;
$example{foo} = say;

print $example{foo}, "\n";