Select Code to Download

#! /usr/bin/perl
use strict;
...
# Show that they are really tied together.
$alpha_state = "goodbye\n";
print $hash{alpha}{state};